[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';
use File::Spec;

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(), File::Spec->catfile(qw(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);
dcd0209b	5	use lib::with::preamble 'use v5.10;', 't/lib';
8869aac7	6	use File::Spec;
dcd0209b	7
	8	ok(eval { require my_given_example; 1 }, 'Loaded module');
	9
	10	sub result_for { eval { my_given_example::example_sub($_[0]) } }
	11
	12	is(result_for(1), 'positive');
	13	is(result_for(-1), 'negative');
	14	is(result_for(0), 'zero');
	15
8869aac7	16	is(my_given_example::my_file(), File::Spec->catfile(qw(t lib my_given_example.pm)));
dcd0209b	17	is(my_given_example::my_line(), 12);