view release on metacpan or  search on metacpan

t/010-basic/080-cleanup-handlers.t  view on Meta::CPAN

#!/usr/bin/perl -w

use strict;
use warnings 'all';
use Test::More 'no_plan';
use ASP4::API;

ok( my $api = ASP4::API->new, 'got api' );


$::cleanup_called = 0;
ok( $api->ua->get('/register-cleanup.asp') );

ok( $::cleanup_called, "Cleanup handler was called" );