CatalystX-Test-Recorder

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

use warnings;

use Module::Build 0.3601;


my %module_build_args = (
  'build_requires' => {
    'Catalyst' => '0',
    'File::Find' => '0',
    'File::Temp' => '0',
    'HTTP::Request::Common' => '0',
    'Module::Build' => '0.3601',
    'Test::More' => '0.88',
    'Test::WWW::Mechanize::Catalyst' => '0'
  },
  'configure_requires' => {
    'Module::Build' => '0.3601'
  },
  'dist_abstract' => 'Generate tests from HTTP requests',
  'dist_author' => [
    'Moritz Onken <onken@netcubed.de>'

META.json  view on Meta::CPAN

            "Test::WWW::Mechanize::Catalyst" : "0.51",
            "WWW::Mechanize" : "1.60",
            "utf8" : 0
         }
      },
      "test" : {
         "requires" : {
            "Catalyst" : 0,
            "File::Find" : 0,
            "File::Temp" : 0,
            "HTTP::Request::Common" : 0,
            "Test::More" : "0.88",
            "Test::WWW::Mechanize::Catalyst" : 0
         }
      }
   },
   "provides" : {
      "CatalystX::Test::Recorder" : {
         "file" : "lib/CatalystX/Test/Recorder.pm",
         "version" : "v1.0.0"
      },

META.yml  view on Meta::CPAN

---
abstract: 'Generate tests from HTTP requests'
author:
  - 'Moritz Onken <onken@netcubed.de>'
build_requires:
  Catalyst: 0
  File::Find: 0
  File::Temp: 0
  HTTP::Request::Common: 0
  Module::Build: 0.3601
  Test::More: 0.88
  Test::WWW::Mechanize::Catalyst: 0
configure_requires:
  Module::Build: 0.3601
dynamic_config: 0
generated_by: 'Dist::Zilla version 4.200000, CPAN::Meta::Converter version 2.102400'
license: bsd
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html

README.mkdn  view on Meta::CPAN

      # make requests to your application
      # hit /recorder/stop to get the test

    Example output:

      use Test::More;
      use strict;
      use warnings;

      use URI;
      use HTTP::Request::Common qw(GET HEAD PUT DELETE POST);

      use Test::WWW::Mechanize::Catalyst 'MyApp';

      my $mech = Test::WWW::Mechanize::Catalyst->new();
      $mech->requests_redirectable([]); # disallow redirects

      my ( $response, $request, $url );

      $request = POST '/foo', [ 'foo' => 'bar' ];
      $response = $mech->request($request);

lib/CatalystX/Test/Recorder.pm  view on Meta::CPAN

  # make requests to your application
  # hit /recorder/stop to get the test

Example output: 

  use Test::More;
  use strict;
  use warnings;

  use URI;
  use HTTP::Request::Common qw(GET HEAD PUT DELETE POST);

  use Test::WWW::Mechanize::Catalyst 'MyApp';

  my $mech = Test::WWW::Mechanize::Catalyst->new();
  $mech->requests_redirectable([]); # disallow redirects

  my ( $response, $request, $url );

  $request = POST '/foo', [ 'foo' => 'bar' ];
  $response = $mech->request($request);

lib/CatalystX/Test/Recorder/Controller.pm  view on Meta::CPAN

__DATA__
[% FILTER perltidy -%]
# [% requests.size %] requests recorded.

use Test::More;
use strict;
use warnings;

use URI;
use HTTP::Request::Common qw(GET HEAD PUT DELETE POST);

use Test::WWW::Mechanize::Catalyst '[% app %]';

my $mech = Test::WWW::Mechanize::Catalyst->new();
$mech->requests_redirectable([]); # disallow redirects

my ($response, $request, $url);

[% FOREACH request IN requests %]
[% IF request.query_params.size %]$url = URI->new('/[% request.path %]');

t/000-report-versions-tiny.t  view on Meta::CPAN

    # So, we should be good, right?
    return sprintf('%-45s => %-10s%-15s%s', $module, $pmver, $wanted, "\n");
}

eval { $v .= pmver('Catalyst','any version') };
eval { $v .= pmver('Catalyst::Controller','any version') };
eval { $v .= pmver('Data::Dumper','any version') };
eval { $v .= pmver('File::Find','any version') };
eval { $v .= pmver('File::Temp','any version') };
eval { $v .= pmver('HTTP::Request::Common','any version') };
eval { $v .= pmver('List::Util','any version') };
eval { $v .= pmver('Module::Build','0.3601') };
eval { $v .= pmver('Moose','any version') };
eval { $v .= pmver('Moose::Role','any version') };
eval { $v .= pmver('Perl::Tidy','any version') };
eval { $v .= pmver('Template::Alloy','any version') };
eval { $v .= pmver('Test::More','0.94') };
eval { $v .= pmver('Test::WWW::Mechanize::Catalyst','0.51') };
eval { $v .= pmver('WWW::Mechanize','1.60') };
eval { $v .= pmver('utf8','any version') };

t/basic.t  view on Meta::CPAN

use Test::More;

use lib qw(t/lib);


use HTTP::Request::Common;

use Test::WWW::Mechanize::Catalyst 'MyApp';

my $mech = Test::WWW::Mechanize::Catalyst->new();

$mech->get_ok('/foo', 'get index');

$mech->get_ok('/recorder/start', 'start recorder');

$mech->get_ok('/foo', 'get index');

t/config.t  view on Meta::CPAN

use Test::More;

use lib qw(t/lib);

use HTTP::Request::Common;

use Test::WWW::Mechanize::Catalyst 'MyAppT';

my $mech = Test::WWW::Mechanize::Catalyst->new();

$mech->get_ok('/foobar/start', 'start recorder');

$mech->get_ok('/foo', 'get index');

$mech->get_ok('/foobar/stop', 'stop recorder');

t/cookie.t  view on Meta::CPAN

use Test::More;

use lib qw(t/lib);


use HTTP::Request::Common qw(GET HEAD PUT DELETE POST);

use Test::WWW::Mechanize::Catalyst 'MyApp';

my $mech = Test::WWW::Mechanize::Catalyst->new();

my $response = $mech->request(GET '/cookie');
is($response->code, 200, 'setting cookie');


$response = $mech->request(GET '/cookie');

t/params.t  view on Meta::CPAN

use Test::More;

use lib qw(t/lib);


use HTTP::Request::Common qw(GET HEAD PUT DELETE POST);

use Test::WWW::Mechanize::Catalyst 'MyApp';

my $mech = Test::WWW::Mechanize::Catalyst->new();

$mech->get_ok('/recorder/start', 'start recorder');

my $request = POST '/foo?foo=bar', [ foo => 'get index' ];
$request->method('POST');
$mech->request( $request );