1..16 # Running under perl version 5.008008 for freebsd # Current time local: Mon Sep 25 23:57:36 2006 # Current time GMT: Mon Sep 25 21:57:36 2006 # Using Test.pm version 1.25 ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 not ok 10 # Failed test 10 in t/dumper.t at line 70 # t/dumper.t line 70 is: ok(!$@); --- ERROR --- --Error message start: PDL: FITS file /tmp/tmp-24587.fits not found Caught at file (eval 48), line 2, pkg main --Error message end: String was: {my($VAR1); my($PDL_134615552) = PDL::IO::Dumper::uudecode_PDL(<<'DuMPERFILE' begin 660 /tmp/tmp-24587.fits M4TE-4$Q%("`]("`@("`@("`@("`@("`@("`@("!4("\@4$1,.CI)3SHZ1DE4 M4SHZ=V9I=',@*&AT='`Z+R]P9&PN<&5R;"YOhdrcpy(0); $PDL_134615552->sethdr(undef); $VAR1 = { 'e' => $PDL_134615552 }; } --- ERROR (end) --- not ok 11 # Failed test 11 in t/dumper.t at line 84 # t/dumper.t line 84 is: ok((ref $a eq 'HASH')); not ok 12 # Failed test 12 in t/dumper.t at line 85 # t/dumper.t line 85 is: ok((ref $a->{e} eq 'PDL') ok 13 not ok 14 # Failed test 14 in t/dumper.t at line 94 # t/dumper.t line 94 is: ok(!$@ && (ref $a eq 'ARRAY')); not ok 15 # Failed test 15 in t/dumper.t at line 96 # t/dumper.t line 96 is: ok(eval '$a->[0]->hdrcpy() == 1 && $a->[1]->hdrcpy() == 0'); not ok 16 # Failed test 16 in t/dumper.t at line 97 # t/dumper.t line 97 is: ok(eval '($a->[0]->gethdr()->{ok}==1) && ($a->[1]->gethdr()->{ok}==2)');