t/legacy/integration/ajax.t

   1 =head1 NAME
   2
   3 t/integration/ajax.t - Integration tests for AJAXy stuff
   4
   5 =head1 DESCRIPTION
   6
   7 Tests for AJAXy stuff.
   8
   9 =head1 AUTHORS
  10
  11 Jonathan "Duke" Leto
  12
  13 =cut
  14
  15 use strict;
  16 use warnings;
  17 use Test::More;
  18 use Test::JSON;
  19 use JSON::Any;
  20 use lib 't/lib';
  21 use SGN::Test::WWW::Mechanize;
  22
  23 my $mech = SGN::Test::WWW::Mechanize->new;
  24
  25 my @ajax_urls = (
  26     "/image/ajax/image_ajax_form.pl?action=view",
  27     "/image/ajax/image_ajax_form.pl?action=",
  28     "/image/ajax/image_ajax_form.pl",
  29     "/image/ajax/image_ajax_form.pl?action=edit",
  30     "/image/ajax/image_ajax_form.pl?object_id=0",
  31 );
  32
  33 plan( tests => 2*@ajax_urls );
  34 my $j = JSON::Any->new;
  35 for my $url (@ajax_urls) {
  36     $mech->get_ok($url);
  37     is_valid_json($mech->content, "$url is valid JSON");
  38     my $out = $j->decode( $mech->content );
  39 }