t/51_triplevar.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 33;
   7 use Test::NoWarnings;
   8
   9 use Data::Peek qw( DDual DPeek triplevar );
  10
  11 foreach         my $iv (undef, 3     ) {
  12     foreach     my $nv (undef, 3.1415) {
  13         foreach my $pv (undef, "\x{03c0}") {
  14             my $tv = triplevar ($pv, $iv, $nv);
  15             ok (my @tv = DDual ($tv),   "Get tv");
  16             is ($tv[0], $pv,            "Check pv");
  17             is ($tv[1], $iv,            "Check iv");
  18             is ($tv[2], $nv,            "Check nv");
  19             }
  20         }
  21     }
  22
  23 1;