# Saved WITHOUT initial "Nada->new(), Yada->new()"
>perl test_01.t             -save
ok 1 - $self->isa('Yada')
ok 2 - $self->number() == 0
ok 3 - @{$self->nadas()} == 2
#line 38  test_01.t
$self->nadas() = [
                   bless(do{\(my $o = 1)}, "Nada"),
                   bless(do{\(my $o = 2)}, "Nada"),
                 ]

ok 4 - $self->nadas()->[0]->number() == 1
ok 5 - $self->nadas()->[1]->number() == 2
1..5


# Restored WITHOUT initial "Nada->new(), Yada->new()"
>perl test_01.t             -restore
OIO::Args error: Unknown field name for class 'Yada': number
Package: main
File: test_01.t
Line: 52


Trace begun at test_01.t line 52


# Restored WITH initial "Nada->new(), Yada->new()"
>perl test_01.t -initialize -restore
initialized!
ok 1 - $self->isa('Yada')
ok 2 - $self->number() == 0
ok 3 - @{$self->nadas()} == 2
#line 38  test_01.t
$self->nadas() = [
                   bless(do{\(my $o = 1)}, "Nada"),
                   bless(do{\(my $o = 2)}, "Nada"),
                 ]

not ok 4 - $self->nadas()->[0]->number() == 1
#   Failed test '$self->nadas()->[0]->number() == 1'
#   at test_01.t line 45.
#
#   (do{$self->nadas()->[0]->number() == 1}) was false
#   because:
#     $self --> bless(do{\(my $o = 1)}, "Yada")
#
not ok 5 - $self->nadas()->[1]->number() == 2
#   Failed test '$self->nadas()->[1]->number() == 2'
#   at test_01.t line 46.
#
#   (do{$self->nadas()->[1]->number() == 2}) was false
#   because:
#     $self --> bless(do{\(my $o = 1)}, "Yada")
#
1..5
ERROR: Duplicate reclaimed object ID (1) in class tree for Nada in thread 0
# Looks like you failed 2 tests of 5.


# Saved WITH initial "Nada->new(), Yada->new()"
>perl test_01.t -initialize -save
initialized!
ok 1 - $self->isa('Yada')
ok 2 - $self->number() == 0
ok 3 - @{$self->nadas()} == 2
#line 38  test_01.t
$self->nadas() = [
                   bless(do{\(my $o = 1)}, "Nada"),
                   bless(do{\(my $o = 2)}, "Nada"),
                 ]

ok 4 - $self->nadas()->[0]->number() == 1
ok 5 - $self->nadas()->[1]->number() == 2
1..5


# Restored WITHOUT initial "Nada->new(), Yada->new()"
>perl test_01.t             -restore
OIO::Args error: Unknown field name for class 'Yada': number
Package: main
File: test_01.t
Line: 52


Trace begun at test_01.t line 52


# Restored WITH initial "Nada->new(), Yada->new()"
>perl test_01.t -initialize -restore
initialized!
ok 1 - $self->isa('Yada')
ok 2 - $self->number() == 0
ok 3 - @{$self->nadas()} == 2
#line 38  test_01.t
$self->nadas() = [
                   bless(do{\(my $o = 1)}, "Nada"),
                   bless(do{\(my $o = 2)}, "Nada"),
                 ]

not ok 4 - $self->nadas()->[0]->number() == 1
#   Failed test '$self->nadas()->[0]->number() == 1'
#   at test_01.t line 45.
#
#   (do{$self->nadas()->[0]->number() == 1}) was false
#   because:
#     $self --> bless(do{\(my $o = 1)}, "Yada")
#
not ok 5 - $self->nadas()->[1]->number() == 2
#   Failed test '$self->nadas()->[1]->number() == 2'
#   at test_01.t line 46.
#
#   (do{$self->nadas()->[1]->number() == 2}) was false
#   because:
#     $self --> bless(do{\(my $o = 1)}, "Yada")
#
1..5
ERROR: Duplicate reclaimed object ID (1) in class tree for Nada in thread 0
# Looks like you failed 2 tests of 5.