Commit | Line | Data |
e98cedbf |
1 | # Before `make install' is performed this script should be runnable with |
2 | # `make test'. After `make install' it should work as `perl test.pl' |
3 | |
4 | ######################### We start with some black magic to print on failure. |
5 | |
6 | # Change 1..1 below to 1..last_test_to_print . |
7 | # (It may become useful if the test is moved to ./t subdirectory.) |
8 | |
b98fcdb9 |
9 | BEGIN { $| = 1; print "1..5\n"; } |
e98cedbf |
10 | END {print "not ok 1\n" unless $loaded;} |
b98fcdb9 |
11 | use Devel::Size qw(size total_size); |
e98cedbf |
12 | $loaded = 1; |
13 | print "ok 1\n"; |
14 | |
15 | ######################### End of black magic. |
16 | |
17 | # Insert your test code below (better if it prints "ok 13" |
18 | # (correspondingly "not ok 13") depending on the success of chunk 13 |
19 | # of the test code): |
20 | |
b98fcdb9 |
21 | |
22 | my $x = "A string"; |
23 | my $y = "A longer string"; |
24 | if (size($x) < size($y)) { |
25 | print "ok 2\n"; |
26 | } else { |
27 | print "not ok 2\n"; |
28 | } |
29 | |
30 | if (total_size($x) < total_size($y)) { |
31 | print "ok 3\n"; |
32 | } else { |
33 | print "not ok 3\n"; |
34 | } |
35 | |
36 | my @x = (1..4); |
37 | my @y = (1..10); |
38 | |
39 | if (size(\@x) < size(\@y)) { |
40 | print "ok 4\n"; |
41 | } else { |
42 | print "not ok 4\n"; |
43 | } |
44 | |
45 | if (total_size(\@x) < total_size(\@y)) { |
46 | print "ok 5\n"; |
47 | } else { |
48 | print "not ok 5\n"; |
49 | } |
50 | |