t/lib/st-overload.t

   1 #!./perl
   2
   3 # $Id: overload.t,v 0.7.1.1 2000/08/13 20:10:10 ram Exp $
   4 #
   5 #  Copyright (c) 1995-2000, Raphael Manfredi
   6 #
   7 #  You may redistribute only under the terms of the Artistic License,
   8 #  as specified in the README file that comes with the distribution.
   9 #
  10 # $Log: overload.t,v $
  11 # Revision 0.7.1.1  2000/08/13 20:10:10  ram
  12 # patch1: created
  13 #
  14
  15 sub BEGIN {
  16     chdir('t') if -d 't';
  17     unshift @INC, '../lib';
  18     require 'lib/st-dump.pl';
  19 }
  20
  21 sub ok;
  22
  23 use Storable qw(freeze thaw);
  24
  25 print "1..7\n";
  26
  27 package OVERLOADED;
  28
  29 use overload
  30         '""' => sub { $_[0][0] };
  31
  32 package main;
  33
  34 $a = bless [77], OVERLOADED;
  35
  36 $b = thaw freeze $a;
  37 ok 1, ref $b eq 'OVERLOADED';
  38 ok 2, "$b" eq "77";
  39
  40 $c = thaw freeze \$a;
  41 ok 3, ref $c eq 'REF';
  42 ok 4, ref $$c eq 'OVERLOADED';
  43 ok 5, "$$c" eq "77";
  44
  45 $d = thaw freeze [$a, $a];
  46 ok 6, "$d->[0]" eq "77";
  47 $d->[0][0]++;
  48 ok 7, "$d->[1]" eq "78";
  49