t/example.t

   1 use strict;
   2 use warnings FATAL => 'all';
   3 use if $] <= 5.010000, 'Test::More', skip_all => 'This test requires 5.10';
   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);