RESTを模擬して：Client :: REST

Question

私はRTシステムでユニットテストをしようとしているので、RTインスタンスをローカルでモックする必要があります。基本的には、私はRTシステムに接続しています。チケットのキューを処理しています。誰かがコード例やアイディアを持っていますか？私はLWP :: UserAgentを模倣する必要があると思うが、私は確信が持てない。 アイディアを教えてください。前もって感謝します！

Answer 1

私の例の下に検索：

my $mock = Test::MockModule->new('REST::Client'); 
my $raw_response = ''; 
$mock->mock(
    POST => sub { # You can do the same for GET :) 
     my ($ua, $request) = @_; 
     if ($request =~ /confirm/) { 
      $raw_response = $confirm_response_ok; # This is response for Confirm Method in my Code 
     } 
     elsif ($request =~ /transfers/) { 
      $raw_response = $create_response_ok; # This is response for Create transfer in my Code 
     } 
     return ''; 
    },  
    responseCode => sub { 
     my $self = shift; 
     return '200'; 
    },  
    responseContent => sub { 
     my $self = shift; 
     return $raw_response; 
    } 
); 

愛とマイアミから。あなたは私たちを見つける場所を知っています:)

エベリオとハロルド