t/lib/u-dualvar.t


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

BEGIN {
	chdir 't' if -d 't';
	@INC = '../lib';
}

BEGIN {
  require Scalar::Util;

  if (grep { /dualvar/ } @Scalar::Util::EXPORT_FAIL) {
    print "1..0\n";
    exit;
  }
}

use Scalar::Util qw(dualvar);

print "1..6\n";

$var = dualvar 2.2,"string";

print "not " unless $var == 2.2;
print "ok 1\n";

print "not " unless $var eq "string";
print "ok 2\n";

$var2 = $var;

$var++;

print "not " unless $var == 3.2;
print "ok 3\n";

print "not " unless $var ne "string";
print "ok 4\n";

print "not " unless $var2 == 2.2;
print "ok 5\n";

print "not " unless $var2 eq "string";
print "ok 6\n";