Fix 2 stupid omissions in tests
Peter Rabbitson [Mon, 15 Nov 2010 10:32:48 +0000 (11:32 +0100)]
t/storage/txn.t
t/storage/txn_scope_guard.t

index dc7c8b3..d48d84b 100644 (file)
@@ -194,7 +194,7 @@ for my $want (0,1) {
 
     my @pids;
     my $guard = $schema->txn_scope_guard;
-    _forking_action ($schema);
+    @pids = _forking_action ($schema);
     $guard->commit;
 
     for my $pid (@pids) {
index 143f714..dbfc6a4 100644 (file)
@@ -24,7 +24,7 @@ use DBICTest;
     });
 
    $guard->commit;
-  } qr/No such column made_up_column .*? at .*?$fn line \d+/s, "Error propogated okay";
+  } qr/No such column made_up_column .*? at .*?\Q$fn\E line \d+/s, "Error propogated okay";
 
   ok(!$artist_rs->find({name => 'Death Cab for Cutie'}), "Artist not created");