blob: d451cd56dd8b3ee4df52cfea6f9d79015b2b31f6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
#!./perl -w
# Check that we can "upgrade" from anything to anything else.
# Curiously, before this, lib/Math/Trig.t was the only code anywhere in the
# build or testsuite that upgraded an NV to an RV
BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
require './test.pl';
}
use strict;
my $null;
$! = 1;
my %types = (
null => $null,
iv => 3,
nv => .5,
rv => [],
pv => "Perl rules",
pviv => 3,
pvnv => 1==1,
pvmg => $^,
);
# This is somewhat cheating but I can't think of anything built in that I can
# copy that already has type PVIV
$types{pviv} = "Perl rules!";
# use Devel::Peek; Dump $pvmg;
my @keys = keys %types;
plan tests => @keys * @keys;
foreach my $source_type (@keys) {
foreach my $dest_type (@keys) {
# Pads re-using variables might contaminate this
my $vars = {};
$vars->{dest} = $types{$dest_type};
$vars->{source} = $types{$source_type};
# The assignment can potentially trigger assertion failures, so it's
# useful to have the diagnostics about what was attempted printed first
print "# Assigning $source_type to $dest_type\n";
$vars->{dest} = $vars->{source};
is ($vars->{dest}, $vars->{source});
}
}
|
