Show
Ignore:
Timestamp:
06/09/08 22:43:52 (18 months ago)
Author:
mpaschal
Message:

Don't refer to our Foo using the array until we need to
BugzID: 79952

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • branches/release-39/t/driver-tests.pl

    r2500 r2534  
    4848package main; 
    4949 
    50 my(@foo, @bar); 
     50my($foo, @foo, @bar); 
    5151my($tmp, @tmp); 
    5252 
    … …  
    5858## Test creating object with new 
    5959##     test column access through column, then through AUTOLOAD 
    60 $foo[0] = Foo->new; 
    61 isa_ok($foo[0], 'Foo', 'New Foo'); 
    62 $foo[0]->column('name', 'foo'); 
    63 is($foo[0]->column('name'), 'foo', 'Setting name field with column() persists through access'); 
    64 $foo[0]->name('foo'); 
    65 is($foo[0]->name, 'foo', 'Setting name field with mutator method persists through access'); 
    66 $foo[0]->status(2); 
    67 $foo[0]->text('bar'); 
     60$foo = Foo->new; 
     61isa_ok($foo, 'Foo', 'New Foo could be created'); 
     62$foo->column('name', 'foo'); 
     63is($foo->column('name'), 'foo', 'Setting name field with column() persists through access'); 
     64$foo->name('foo'); 
     65is($foo->name, 'foo', 'Setting name field with mutator method persists through access'); 
     66$foo->status(2); 
     67$foo->text('bar'); 
    6868 
    6969## Test saving created object 
    70 ok($foo[0]->save, 'A Foo could be saved'); 
    71 is($foo[0]->id, 1, 'First Foo was given an id of 1, says accessor method'); 
    72 is($foo[0]->column('id'), $foo[0]->id, 'First Foo was given an id of 1, says column()'); 
     70ok($foo->save, 'A Foo could be saved'); 
     71is($foo->id, 1, 'First Foo was given an id of 1, says accessor method'); 
     72is($foo->column('id'), 1, 'First Foo was given an id of 1, says column()'); 
    7373 
    7474sub _is_object { 
    … …  
    132132} 
    133133 
    134 is_object(scalar Foo->load(1), $foo[0], 'Foo #1 by id is Foo #1'); 
    135 is_object(scalar Foo->load({ id => 1 }), $foo[0], 'Foo #1 by id hash is Foo #1'); 
    136 is_object(scalar Foo->load({ id => 1, name => 'foo' }), $foo[0], 'Foo #1 by id-name hash is Foo #1'); 
    137 is_object(scalar Foo->load({ name => 'foo' }), $foo[0], 'Foo #1 by name hash is Foo #1'); 
    138 is_object(scalar Foo->load({ created_on => $foo[0]->created_on }), $foo[0], 'Foo #1 by created_on hash is Foo #1'); 
    139 is_object(scalar Foo->load({ status => 2 }), $foo[0], 'Foo #1 by status hash is Foo #1'); 
     134is_object(scalar Foo->load(1), $foo, 'Foo #1 by id is Foo #1'); 
     135is_object(scalar Foo->load({ id => 1 }), $foo, 'Foo #1 by id hash is Foo #1'); 
     136is_object(scalar Foo->load({ id => 1, name => 'foo' }), $foo, 'Foo #1 by id-name hash is Foo #1'); 
     137is_object(scalar Foo->load({ name => 'foo' }), $foo, 'Foo #1 by name hash is Foo #1'); 
     138is_object(scalar Foo->load({ created_on => $foo->created_on }), $foo, 'Foo #1 by created_on hash is Foo #1'); 
     139is_object(scalar Foo->load({ status => 2 }), $foo, 'Foo #1 by status hash is Foo #1'); 
    140140 
    141141##     Change column value, save, try to load using old value (fail?), 
    142142##     then load again using new value 
    143 $foo[0]->status(0); 
    144 ok($foo[0]->save, 'Foo #1 saved with new status (0)'); 
     143$foo->status(0); 
     144ok($foo->save, 'Foo #1 saved with new status (0)'); 
    145145$tmp = Foo->load({ status => 2 }); 
    146146ok(!$tmp, 'Foo #1 no longer loads with old status (2)'); 
    147147$tmp = Foo->load({ status => 0 }); 
    148 is_object($tmp, $foo[0], 'Foo #1 by new status (0) is Foo #1'); 
     148is_object($tmp, $foo, 'Foo #1 by new status (0) is Foo #1'); 
    149149 
    150150## Create a new object so we can do range and last/first lookups. 
    … …  
    153153 
    154154## Create new object for iterator testing 
     155$foo[0] = $foo; 
    155156$foo[1] = Foo->new; 
    156157$foo[1]->name('baz');