[p5sagit/lib-with-preamble.git] / t / example.t

use strict;
use warnings FATAL => 'all';
use if $] <= 5.010000, 'Test::More', skip_all => 'This test requires 5.10';
use Test::More qw(no_plan);
use lib::with::preamble 'use v5.10;', 't/lib';

ok(eval { require my_given_example; 1 }, 'Loaded module');

sub result_for { eval { my_given_example::example_sub($_[0]) } }

is(result_for(1), 'positive');
is(result_for(-1), 'negative');
is(result_for(0), 'zero');

is(my_given_example::my_file(), 't/lib/my_given_example.pm');
is(my_given_example::my_line(), 12);
Commit	Line	Data
dcd0209b	1	use strict;
dcd0209b	2	use warnings FATAL => 'all';
201ca098	3	use if $] <= 5.010000, 'Test::More', skip_all => 'This test requires 5.10';
dcd0209b	4	use Test::More qw(no_plan);
	5	use lib::with::preamble 'use v5.10;', 't/lib';
	6
	7	ok(eval { require my_given_example; 1 }, 'Loaded module');
	8
	9	sub result_for { eval { my_given_example::example_sub($_[0]) } }
	10
	11	is(result_for(1), 'positive');
	12	is(result_for(-1), 'negative');
	13	is(result_for(0), 'zero');
	14
	15	is(my_given_example::my_file(), 't/lib/my_given_example.pm');
	16	is(my_given_example::my_line(), 12);