# ---------------------------------------------------------------- use strict; use Test::More; require 't/MyAPI_env.pm.testing'; # ---------------------------------------------------------------- SKIP: { local $@; eval { require Data::Page; } unless defined $Data::Page::VERSION; if ( ! defined $Data::Page::VERSION ) { plan skip_all => 'Data::Page is not loaded.'; } plan tests => 10; use_ok('XML::OverHTTP'); my $api = MyAPI_env->new(); ok( ref $api, 'api' ); my $pager = $api->page; ok( ref $pager, 'page' ); is( $pager->first_page, 1, 'first_page' ); is( $pager->last_page, 1, 'last_page' ); is( $pager->first, 1, 'first' ); is( $pager->last, 1, 'last' ); ok( ! $pager->previous_page, 'previous_page' ); ok( ! $pager->next_page, 'next_page' ); is( $pager->skipped, 0, 'skipped' ); } # ---------------------------------------------------------------- ;1; # ----------------------------------------------------------------