3 use Test::More tests => 50;
5 use Scalar::Util qw(refaddr);
12 '""' => sub { "foo" },
14 cos => sub { "far side of overload table" },
17 sub new { bless {}, shift };
20 my $x = Stringifies->new;
24 is( "$x", "foo", "stringifies" );
25 is( "$y", $ystr, "stringifies qr//" );
26 is( 0 + $x, 42, "numifies" );
27 is( cos($x), "far side of overload table", "cosinusfies" );
31 is( "$x", overload::StrVal($x), "no stringification" );
32 is( "$y", overload::StrVal($y), "no stringification of qr//" );
33 is( 0 + $x, refaddr($x), "no numification" );
34 is( cos($x), cos(refaddr($x)), "no cosinusfication" );
38 is( "$x", overload::StrVal($x), "no stringification" );
39 is( "$y", overload::StrVal($y), "no stringification of qr//" );
40 is( 0 + $x, refaddr($x), "no numification" );
41 is( cos($x), cos(refaddr($x)), "no cosinusfication" );
48 is( "$x", overload::StrVal($x), "no stringification" );
49 is( "$y", overload::StrVal($y), "no stringification of qr//" );
50 is( 0 + $x, 42, "numifies" );
51 is( cos($x), "far side of overload table", "cosinusfies" );
54 ok "abc" =~ $q, '=~ qr// with no "" overloading';
55 ok "abcd" =~ /${q}d/, '=~ /foo$qr/ with no "" overloading';
59 ok "abc" =~ $q, '=~ qr// with no "" or qr overloading';
60 ok "abcd" =~ /${q}d/, '=~ /foo$qr/ with no "" or qr overloading';
65 is( "$x", overload::StrVal($x), "no stringification" );
66 is( "$y", overload::StrVal($y), "no stringification of qr//" );
67 is( 0 + $x, refaddr($x), "no numification" );
68 is( cos($x), cos(refaddr($x)), "no cosinusfication" );
73 is( "$x", "foo", "stringifies" );
74 is( "$y", $ystr, "stringifies qr//" );
75 is( 0 + $x, 42, "numifies" );
76 is( cos($x), "far side of overload table", "cosinusfies" );
79 is( "$x", "foo", "stringifies" );
80 is( "$y", $ystr, "stringifies qr//" );
81 is( 0 + $x, refaddr($x), "no numification" );
82 is( cos($x), "far side of overload table", "cosinusfies" );
86 is( "$x", overload::StrVal($x), "no stringification" );
87 is( "$y", overload::StrVal($y), "no stringification of qr//" );
88 is( 0 + $x, refaddr($x), "no numification" );
89 is( cos($x), "far side of overload table", "cosinusfies" );
93 is( "$x", "foo", "stringifies" );
94 is( "$y", $ystr, "stringifies qr//" );
95 is( 0 + $x, 42, "numifies" );
96 is( cos($x), "far side of overload table", "cosinusfies" );
100 is( "$x", "foo", "stringifies" );
101 is( "$y", $ystr, "stringifies qr//" );
102 is( 0 + $x, refaddr($x), "no numification" );
103 is( cos($x), "far side of overload table", "cosinusfies" );
105 no overloading "cos";
106 is( "$x", "foo", "stringifies" );
107 is( "$y", $ystr, "stringifies qr//" );
108 is( 0 + $x, refaddr($x), "no numification" );
109 is( cos($x), cos(refaddr($x)), "no cosinusfication" );
111 BEGIN { ok(exists($^H{overloading}), "overloading hint present") }
115 BEGIN { ok(!exists($^H{overloading}), "overloading hint removed") }