fix test to accomodate alternate directory separates e.g. on win32

Author: karenetheridge

Changes

@@ -1,5 +1,7 @@
 Changes for Perl extension Test-Class
 
+    -   fix new teardown tests for MSWin32
+
 0.45   [2014-07-05]
     -   bump minimum required version of Test::More (RT#96951)
 

t/teardown-when-test-dies.t

@@ -3,6 +3,7 @@
 use strict;
 use warnings;
 
+my $line;
 {
     package TeardownWhenTestDies;
     use base qw(Test::Class);
@@ -11,7 +12,7 @@ use warnings;
     sub setup_that_runs : Test( setup => 1 ) { ok(1, "setup works"); }
 
     sub my_test_method : Tests {
-        die "oops!";
+        BEGIN { $line = __LINE__ } die "oops!";
     }
 
     sub teardown_that_runs : Test( teardown => 1 ) {
@@ -21,7 +22,7 @@ use warnings;
 
 use Test::Builder::Tester tests => 1;
 
-test_out("ok 1 - setup works\nnot ok 2 - my_test_method died (oops! at t/teardown-when-test-dies.t line 14.)\nok 3 - teardown is run");
+test_out("ok 1 - setup works\nnot ok 2 - my_test_method died (oops! at ${\ __FILE__ } line $line.)\nok 3 - teardown is run");
 test_fail( +2 );
 test_err( "#   (in TeardownWhenTestDies->my_test_method)" );
 Test::Class->runtests;