Changeset 18468 for lang

Timestamp:

08/30/08 12:18:05 (3 months ago)

Author:

tokuhirom

Message:

r24238@skinny: tokuhirom | 2008-08-30 11:32:04 +0900
test multiple dbhs

Location:

lang/perl/TheSchwartz-Simple/trunk

Files:

• . (modified) (1 prop)
• t/01_funcname_to_id.t (modified) (1 diff)

lang/perl/TheSchwartz-Simple/trunk/t/01_funcname_to_id.t

@@ -4 +4 @@
 use TheSchwartz::Simple;
 
-plan tests => 5;
+plan tests => 6;
 
 run_test {
-    my $dbh = shift;
-    my $sch = TheSchwartz::Simple->new($dbh);
-    isa_ok $sch, 'TheSchwartz::Simple';
-    is $sch->funcname_to_id($dbh, 'foo'), 1;
-    is $sch->funcname_to_id($dbh, 'bar'), 2;
-    is $sch->funcname_to_id($dbh, 'foo'), 1;
-    is $sch->funcname_to_id($dbh, 'baz'), 3;
+    my $dbh1 = shift;
+    run_test {
+        my $dbh2 = shift;
+
+        my $sch = TheSchwartz::Simple->new([$dbh1, $dbh2]);
+        isa_ok $sch, 'TheSchwartz::Simple';
+        is $sch->funcname_to_id($dbh1, 'foo'), 1;
+        is $sch->funcname_to_id($dbh1, 'bar'), 2;
+        is $sch->funcname_to_id($dbh1, 'foo'), 1;
+        is $sch->funcname_to_id($dbh1, 'baz'), 3;
+        is $sch->funcname_to_id($dbh2, 'bar'), 1, 'other dbh';
+    };
 };