perl/t/version/simple.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4
   5 use lib qw't perl/t ..';
   6
   7 my @MODULES = (
   8   'YAML::XS',
   9   'version::input',
  10 );
  11
  12 use Test::More;
  13
  14 # Load the testing modules
  15 foreach my $MODULE ( @MODULES ) {
  16   eval "use $MODULE";
  17   if ( $@ ) {
  18     plan( skip_all => "$MODULE not available for testing" );
  19   }
  20 }
  21
  22
  23 our %test = load(
  24   filter => [qw'id xid']
  25 );
  26
  27
  28 plan( tests => 2 * scalar keys %test );
  29
  30
  31 for my $test ( sort keys %test ){
  32   my $expected = $test{$test};
  33
  34   my $id = `echo $test | perl version.pl id`;
  35   chomp $id;
  36   is $id, $expected->{id}, $test.'->{id}';
  37
  38   my $xid = `echo $test | perl version.pl xid`;
  39   chomp $xid;
  40   is $xid, $expected->{xid}, $test.'->{xid}';
  41 }
  42 __END__
  43 33907556
  44 0x02056364