view release on metacpan or  search on metacpan

t/rest/skip_end.t  view on Meta::CPAN

use Test::More  tests => 4;

use strict;
use warnings;

use HTTP::Request::Common;
use JSON;

use lib qw(t/lib);

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

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

my $res = $mech->get('/skipend/form/edit_record');
is($res->header('status'), 200, 'status ok');
$mech->content_contains('MyApp.Forms.EditRecord.skipend_test', 'contains form name');
$mech->content_contains("this.rest_url = '/skipend/'", 'contains action');
my ($items) = ($mech->content =~ /items:\s+(.*?)\n/);
$items = decode_json($items);
is_deeply($items, [
	{	hideLabel => JSON::true, name => "id", fieldLabel => undef, xtype => "textfield" },
	{	hideLabel => JSON::true, name => "password", fieldLabel => undef, xtype => "textfield" },
	{	hideLabel => JSON::true, name => "name", fieldLabel => undef, xtype => "textfield" },
], "contains fields");