#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 33;
use Test::NoWarnings;
use Data::Peek qw( DDual DPeek triplevar );
foreach my $iv (undef, 3 ) {
foreach my $nv (undef, 3.1415) {
foreach my $pv (undef, "\x{03c0}") {
my $tv = triplevar ($pv, $iv, $nv);
ok (my @tv = DDual ($tv), "Get tv");
is ($tv[0], $pv, "Check pv");
is ($tv[1], $iv, "Check iv");
is ($tv[2], $nv, "Check nv");
}
}
}
1;