Changeset 2562 for branches/release-40/t/21-callbacks.t
- Timestamp:
- 06/12/08 05:12:23 (18 months ago)
- Files:
-
- 1 modified
-
branches/release-40/t/21-callbacks.t (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
branches/release-40/t/21-callbacks.t
r2069 r2562 6 6 use Test::More tests => 5; 7 7 use CGI; 8 use DB_File;9 8 10 9 use lib 'extlib'; … … 13 12 14 13 use MT; 14 use MT::Test; 15 15 use MT::Plugin; 16 16 use MT::Entry; … … 77 77 is($entry2->text, $TEST_TEXT, 'on-disk obj altered'); 78 78 79 =pod80 81 # TBD: generalize this82 my $driver = MT::ObjectDriver->new('DBI::SQLite');83 84 #my %entries;85 #tie %entries, "DB_File", $mt->{cfg}->DataSource . "/entry.db",86 # O_RDWR, 0400, $DB_BTREE87 # || die $!;88 #my $rec = $entries{$id};89 #$rec = $driver->{serializer}->unserialize($rec);90 #is($$rec->{text}, rot13($TEST_TEXT), 'text rotated');91 92 #is($entry2->text_more, $TEST_TEXT_MORE, '$entry2->text_more()');93 #is($$rec->{text_more}, $TEST_TEXT_MORE, '$$rec->{text_more}');94 95 =cut96
