Commit | Line | Data |
dcd0209b |
1 | use strict; |
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'; |
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); |