On Jun 30, 2004, at 4:32 PM, [EMAIL PROTECTED] wrote:
# 'Odd number of parameters in call to new() when named parameters were expected at t\errors.t line 35
# '
# doesn't match '(?-xism:(?:at t\errors.t|t\errors.t at) line)'
# Failed test (t\errors.t at line 268)
I must be missing something about the errors on Win32, because they sure seem to match to me! Can you try this patch?
Index: t/errors.t
===================================================================
RCS file: /usr/local/cvsroot/Class-Meta/t/errors.t,v
retrieving revision 1.8
diff -u -r1.8 errors.t
--- t/errors.t 28 Jun 2004 23:15:31 -0000 1.8
+++ t/errors.t 1 Jul 2004 00:31:01 -0000
@@ -265,7 +265,7 @@
# Check its message.
like( $err, $qr, "Correct error" );
# Make sure it refers to this file.
- like( $err, qr/(?:at $fn|$fn at) line/, 'Correct context' );
+ like( $err, qr/(?:at\s+$fn|$fn\s+at)\s+line/, 'Correct context' );
# Make sure it doesn't refer to other Class::Meta files.
unlike( $err, qr|lib/Class/Meta|, 'Not incorrect context')
}
Index: t/view.t
===================================================================
RCS file: /usr/local/cvsroot/Class-Meta/t/view.t,v
retrieving revision 1.6
diff -u -r1.6 view.t
--- t/view.t 28 Jun 2004 23:15:31 -0000 1.6
+++ t/view.t 1 Jul 2004 00:31:01 -0000
@@ -408,7 +408,7 @@
# Check its message.
like( $err, $qr, "Correct error" );
# Make sure it refers to this file.
- like( $err, qr/(?:at $fn|$fn at) line/, 'Correct context' );
+ like( $err, qr/(?:at\s+$fn|$fn\s+at)\s+line/, 'Correct context' );
# Make sure it doesn't refer to other Class::Meta files.
unlike( $err, qr|lib/Class/Meta|, 'Not incorrect context')
}
Thanks,
David (Who hopes he doesn't need to boot his server into Windows 98 just to test this...)
