# New Ticket Created by Bernhard Schmalhofer
# Please include the string: [perl #40455]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=40455 >
Hi,
since a while 'languages/dotnet' showed up as all red in unified
languages testing, which is
invoked with "make languages-test". The culprits were the usual bunch:
@INC and pathes to executables.
I have expanded the library search path in the test scripts. Also
DotnetTesting.pm now asks
Parrot::Test for the path to the parrot executable.
Could somebody check for breakage on Windows?
Any other suggestions?
CU, Bernhard
Index: lib/Parrot/Test.pm
===================================================================
--- lib/Parrot/Test.pm (Revision 14841)
+++ lib/Parrot/Test.pm (Arbeitskopie)
@@ -359,7 +359,7 @@
}
#
-# private methods, should not be used by Modules inherition from Parrot::Test
+# private methods, should not be used by Modules inheriting from Parrot::Test
#
sub _generate_functions {
Index: languages/dotnet/t/locals.t
===================================================================
--- languages/dotnet/t/locals.t (Revision 14841)
+++ languages/dotnet/t/locals.t (Arbeitskopie)
@@ -1,12 +1,15 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 5;
-## Testing class for this file.
+## Testing class for this file.t';
+#
die unless compile_cs("t.dll", <<'CSHARP');
namespace Testing
{
Index: languages/dotnet/t/convovf.t
===================================================================
--- languages/dotnet/t/convovf.t (Revision 14841)
+++ languages/dotnet/t/convovf.t (Arbeitskopie)
@@ -1,12 +1,15 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 43;
-## Testing class for this file.
+## Testing class for this file.t';
+#
die unless compile_cs("t.dll", <<'CSHARP');
namespace Testing
{
Index: languages/dotnet/t/exceptions.t
===================================================================
--- languages/dotnet/t/exceptions.t (Revision 14841)
+++ languages/dotnet/t/exceptions.t (Arbeitskopie)
@@ -1,12 +1,15 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 9;
-## Testing classes for this file.
+## Testing classes for this file.t';
+#
die unless compile_cs("t.dll", <<'CSHARP');
namespace Testing
{
Index: languages/dotnet/t/external.t
===================================================================
--- languages/dotnet/t/external.t (Revision 14841)
+++ languages/dotnet/t/external.t (Arbeitskopie)
@@ -1,12 +1,15 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 5;
-## Testing classes for this file.
+## Testing classes for this file.t';
+#
die unless compile_cs("external.dll", <<'CSHARP');
namespace ExportsStuff
{
Index: languages/dotnet/t/field.t
===================================================================
--- languages/dotnet/t/field.t (Revision 14841)
+++ languages/dotnet/t/field.t (Arbeitskopie)
@@ -1,12 +1,15 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 4;
-## Testing class for this file.
+## Testing class for this file.t';
+#
die unless compile_cs("t.dll", <<'CSHARP');
namespace Testing
{
Index: languages/dotnet/t/box.t
===================================================================
--- languages/dotnet/t/box.t (Revision 14841)
+++ languages/dotnet/t/box.t (Arbeitskopie)
@@ -1,9 +1,11 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 3;
## Testing class for this file.
Index: languages/dotnet/t/staticmethod.t
===================================================================
--- languages/dotnet/t/staticmethod.t (Revision 14841)
+++ languages/dotnet/t/staticmethod.t (Arbeitskopie)
@@ -1,12 +1,15 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 4;
-## Testing class for this file.
+## Testing class for this file.t';
+#
die unless compile_cs("t.dll", <<'CSHARP');
namespace Testing
{
Index: languages/dotnet/t/intarray.t
===================================================================
--- languages/dotnet/t/intarray.t (Revision 14841)
+++ languages/dotnet/t/intarray.t (Arbeitskopie)
@@ -1,12 +1,15 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 6;
-## Testing class for this file.
+## Testing class for this file.t';
+#
die unless compile_cs("t.dll", <<'CSHARP');
namespace Testing
{
Index: languages/dotnet/t/args.t
===================================================================
--- languages/dotnet/t/args.t (Revision 14841)
+++ languages/dotnet/t/args.t (Arbeitskopie)
@@ -1,9 +1,11 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 5;
## Testing class for this file.
Index: languages/dotnet/t/branch.t
===================================================================
--- languages/dotnet/t/branch.t (Revision 14841)
+++ languages/dotnet/t/branch.t (Arbeitskopie)
@@ -1,9 +1,11 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 5;
## Testing class for this file.
Index: languages/dotnet/t/finally.t
===================================================================
--- languages/dotnet/t/finally.t (Revision 14841)
+++ languages/dotnet/t/finally.t (Arbeitskopie)
@@ -1,12 +1,15 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 7;
-## Testing classes for this file.
+## Testing classes for this file.t';
+#
die unless compile_cs("t.dll", <<'CSHARP');
namespace Testing
{
Index: languages/dotnet/t/interface.t
===================================================================
--- languages/dotnet/t/interface.t (Revision 14841)
+++ languages/dotnet/t/interface.t (Arbeitskopie)
@@ -1,12 +1,15 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 7;
-## Testing class for this file.
+## Testing class for this file.t';
+#
die unless compile_cs("t.dll", <<'CSHARP');
namespace Testing
{
Index: languages/dotnet/t/valuetypes.t
===================================================================
--- languages/dotnet/t/valuetypes.t (Revision 14841)
+++ languages/dotnet/t/valuetypes.t (Arbeitskopie)
@@ -1,12 +1,15 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 7;
-## Testing class for this file.
+## Testing class for this file.t';
+#
die unless compile_cs("t.dll", <<'CSHARP');
namespace Testing
{
Index: languages/dotnet/t/switch.t
===================================================================
--- languages/dotnet/t/switch.t (Revision 14841)
+++ languages/dotnet/t/switch.t (Arbeitskopie)
@@ -1,12 +1,15 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 2;
-## Testing class for this file.
+## Testing class for this file.t';
+#
die unless compile_cs("t.dll", <<'CSHARP');
namespace Testing
{
Index: languages/dotnet/t/conditional.t
===================================================================
--- languages/dotnet/t/conditional.t (Revision 14841)
+++ languages/dotnet/t/conditional.t (Arbeitskopie)
@@ -1,12 +1,15 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 4;
-## Testing class for this file.
+## Testing class for this file.t';
+#
die unless compile_cs("t.dll", <<'CSHARP');
namespace Testing
{
Index: languages/dotnet/t/floatarray.t
===================================================================
--- languages/dotnet/t/floatarray.t (Revision 14841)
+++ languages/dotnet/t/floatarray.t (Arbeitskopie)
@@ -1,12 +1,15 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 3;
-## Testing class for this file.
+## Testing class for this file.t';
+#
die unless compile_cs("t.dll", <<'CSHARP');
namespace Testing
{
Index: languages/dotnet/t/enum.t
===================================================================
--- languages/dotnet/t/enum.t (Revision 14841)
+++ languages/dotnet/t/enum.t (Arbeitskopie)
@@ -1,12 +1,15 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 7;
-## Testing class for this file.
+## Testing class for this file.t';
+#
die unless compile_cs("t.dll", <<'CSHARP');
namespace Testing
{
Index: languages/dotnet/t/string.t
===================================================================
--- languages/dotnet/t/string.t (Revision 14841)
+++ languages/dotnet/t/string.t (Arbeitskopie)
@@ -1,12 +1,15 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 4;
-## Testing class for this file.
+## Testing class for this file.t';
+#
die unless compile_cs("t.dll", <<'CSHARP');
namespace Testing
{
Index: languages/dotnet/t/calling.t
===================================================================
--- languages/dotnet/t/calling.t (Revision 14841)
+++ languages/dotnet/t/calling.t (Arbeitskopie)
@@ -1,9 +1,11 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 5;
## Testing class for this file.
Index: languages/dotnet/t/isinst.t
===================================================================
--- languages/dotnet/t/isinst.t (Revision 14841)
+++ languages/dotnet/t/isinst.t (Arbeitskopie)
@@ -1,12 +1,15 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 3;
-## Testing class for this file.
+## Testing class for this file.t';
+#
die unless compile_cs("t.dll", <<'CSHARP');
namespace Testing
{
Index: languages/dotnet/t/overloading.t
===================================================================
--- languages/dotnet/t/overloading.t (Revision 14841)
+++ languages/dotnet/t/overloading.t (Arbeitskopie)
@@ -1,12 +1,15 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 6;
-## Testing class for this file.
+## Testing class for this file.t';
+#
die unless compile_cs("t.dll", <<'CSHARP');
namespace Testing
{
Index: languages/dotnet/t/null.t
===================================================================
--- languages/dotnet/t/null.t (Revision 14841)
+++ languages/dotnet/t/null.t (Arbeitskopie)
@@ -1,12 +1,15 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 4;
-## Testing class for this file.
+## Testing class for this file.t';
+#
die unless compile_cs("t.dll", <<'CSHARP');
namespace Testing
{
Index: languages/dotnet/t/mp.t
===================================================================
--- languages/dotnet/t/mp.t (Revision 14841)
+++ languages/dotnet/t/mp.t (Arbeitskopie)
@@ -1,12 +1,15 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 7;
-## Testing class for this file.
+## Testing class for this file.t';
+#
die unless compile_cs("t.dll", <<'CSHARP');
namespace Testing
{
Index: languages/dotnet/t/constants.t
===================================================================
--- languages/dotnet/t/constants.t (Revision 14841)
+++ languages/dotnet/t/constants.t (Arbeitskopie)
@@ -1,12 +1,15 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 4;
-## Testing class for this file.
+## Testing class for this file.t';
+#
die unless compile_cs("t.dll", <<'CSHARP');
namespace Testing
{
Index: languages/dotnet/t/array.t
===================================================================
--- languages/dotnet/t/array.t (Revision 14841)
+++ languages/dotnet/t/array.t (Arbeitskopie)
@@ -1,9 +1,11 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 5;
## Testing class for this file.
Index: languages/dotnet/t/castclass.t
===================================================================
--- languages/dotnet/t/castclass.t (Revision 14841)
+++ languages/dotnet/t/castclass.t (Arbeitskopie)
@@ -1,9 +1,11 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 3;
## Testing class for this file.
Index: languages/dotnet/t/i8.t
===================================================================
--- languages/dotnet/t/i8.t (Revision 14841)
+++ languages/dotnet/t/i8.t (Arbeitskopie)
@@ -1,12 +1,15 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 2;
-## Testing class for this file.
+## Testing class for this file.t';
+#
die unless compile_cs("t.dll", <<'CSHARP');
namespace Testing
{
Index: languages/dotnet/t/callvirt.t
===================================================================
--- languages/dotnet/t/callvirt.t (Revision 14841)
+++ languages/dotnet/t/callvirt.t (Arbeitskopie)
@@ -1,9 +1,11 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 3;
## Testing class for this file.
Index: languages/dotnet/t/initializer.t
===================================================================
--- languages/dotnet/t/initializer.t (Revision 14841)
+++ languages/dotnet/t/initializer.t (Arbeitskopie)
@@ -1,12 +1,15 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 2;
-## Testing class for this file.
+## Testing class for this file.t';
+#
die unless compile_cs("t.dll", <<'CSHARP');
namespace Testing
{
Index: languages/dotnet/t/constructor.t
===================================================================
--- languages/dotnet/t/constructor.t (Revision 14841)
+++ languages/dotnet/t/constructor.t (Arbeitskopie)
@@ -1,12 +1,15 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 3;
-## Testing class for this file.
+## Testing class for this file.t';
+#
die unless compile_cs("t.dll", <<'CSHARP');
namespace Testing
{
Index: languages/dotnet/t/compare.t
===================================================================
--- languages/dotnet/t/compare.t (Revision 14841)
+++ languages/dotnet/t/compare.t (Arbeitskopie)
@@ -1,12 +1,15 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 6;
-## Testing class for this file.
+## Testing class for this file.t';
+#
die unless compile_cs("t.dll", <<'CSHARP');
namespace Testing
{
Index: languages/dotnet/t/overloadprimitives.t
===================================================================
--- languages/dotnet/t/overloadprimitives.t (Revision 14841)
+++ languages/dotnet/t/overloadprimitives.t (Arbeitskopie)
@@ -1,12 +1,15 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 9;
-## Testing class for this file.
+## Testing class for this file.t';
+#
die unless compile_cs("t.dll", <<'CSHARP');
namespace Testing
{
Index: languages/dotnet/t/inheritance.t
===================================================================
--- languages/dotnet/t/inheritance.t (Revision 14841)
+++ languages/dotnet/t/inheritance.t (Arbeitskopie)
@@ -1,12 +1,15 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 6;
-## Testing class for this file.
+## Testing class for this file.t';
+#
die unless compile_cs("t.dll", <<'CSHARP');
namespace Testing
{
Index: languages/dotnet/t/math.t
===================================================================
--- languages/dotnet/t/math.t (Revision 14841)
+++ languages/dotnet/t/math.t (Arbeitskopie)
@@ -1,12 +1,15 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 7;
-## Testing class for this file.
+## Testing class for this file.t';
+#
die unless compile_cs("t.dll", <<'CSHARP');
namespace Testing
{
Index: languages/dotnet/t/staticfield.t
===================================================================
--- languages/dotnet/t/staticfield.t (Revision 14841)
+++ languages/dotnet/t/staticfield.t (Arbeitskopie)
@@ -1,12 +1,15 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 4;
-## Testing class for this file.
+## Testing class for this file.t';
+#
die unless compile_cs("t.dll", <<'CSHARP');
namespace Testing
{
Index: languages/dotnet/t/hierachy.t
===================================================================
--- languages/dotnet/t/hierachy.t (Revision 14841)
+++ languages/dotnet/t/hierachy.t (Arbeitskopie)
@@ -1,12 +1,15 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 2;
-## Testing class for this file.
+## Testing class for this file.t';
+#
die unless compile_cs("t.dll", <<'CSHARP');
namespace Testing
{
Index: languages/dotnet/t/DotNetTesting.pm
===================================================================
--- languages/dotnet/t/DotNetTesting.pm (Revision 14841)
+++ languages/dotnet/t/DotNetTesting.pm (Arbeitskopie)
@@ -1,14 +1,23 @@
# Some utility subs for aiding the test process.
# ##############################################
+
package DotNetTesting;
+
use strict;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(compile_cs translate run_pir);
+use File::Spec;
+
+use Parrot::Test ();
require "config/N2PConfig.pm";
+# globals
+my $path_to_parrot = Parrot::Test::path_to_parrot();
+my $parrot = File::Spec->catfile( $path_to_parrot, 'parrot' );
+
# This compiles C# code to an exe/dll.
# ####################################
sub compile_cs {
@@ -43,12 +52,12 @@
my $out_name = shift;
# Attempt to translate.
- my $output = `$N2PConfig::parrot net2pbc.pbc -q -s -p $net_name >
$out_name.pir`;
+ my $output = `$parrot $path_to_parrot/languages/dotnet/net2pbc.pbc -q
-s -p $net_name > $out_name.pir`;
if ($output) {
print "translate failed:\n$output";
return 0;
}
- $output = `$N2PConfig::parrot -o $out_name $out_name.pir`;
+ $output = `$parrot -o $out_name $out_name.pir`;
unlink "$out_name.pir";
if ($output) {
print "translate failed:\n$output";
@@ -69,7 +78,7 @@
close $fh;
# Run and get output.
- my $output = `$N2PConfig::parrot __temp__.pir`;
+ my $output = `$parrot __temp__.pir`;
# Clean up file and return output.
unlink "__temp__.pir";
Index: languages/dotnet/t/mathovf.t
===================================================================
--- languages/dotnet/t/mathovf.t (Revision 14841)
+++ languages/dotnet/t/mathovf.t (Arbeitskopie)
@@ -1,12 +1,15 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 13;
-## Testing class for this file.
+## Testing class for this file.t';
+#
die unless compile_cs("t.dll", <<'CSHARP');
namespace Testing
{
Index: languages/dotnet/t/conv.t
===================================================================
--- languages/dotnet/t/conv.t (Revision 14841)
+++ languages/dotnet/t/conv.t (Arbeitskopie)
@@ -1,12 +1,15 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 13;
-## Testing class for this file.
+## Testing class for this file.t';
+#
die unless compile_cs("t.dll", <<'CSHARP');
namespace Testing
{
Index: languages/dotnet/t/bitwise.t
===================================================================
--- languages/dotnet/t/bitwise.t (Revision 14841)
+++ languages/dotnet/t/bitwise.t (Arbeitskopie)
@@ -1,9 +1,11 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 5;
## Testing class for this file.
Index: languages/dotnet/t/recursion.t
===================================================================
--- languages/dotnet/t/recursion.t (Revision 14841)
+++ languages/dotnet/t/recursion.t (Arbeitskopie)
@@ -1,12 +1,15 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 2;
-## Testing class for this file.
+## Testing class for this file.t';
+#
die unless compile_cs("t.dll", <<'CSHARP');
namespace Testing
{
Index: languages/dotnet/t/loop.t
===================================================================
--- languages/dotnet/t/loop.t (Revision 14841)
+++ languages/dotnet/t/loop.t (Arbeitskopie)
@@ -1,12 +1,15 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 3;
-## Testing class for this file.
+## Testing class for this file.t';
+#
die unless compile_cs("t.dll", <<'CSHARP');
namespace Testing
{
Index: languages/dotnet/t/mp_pmc.t
===================================================================
--- languages/dotnet/t/mp_pmc.t (Revision 14841)
+++ languages/dotnet/t/mp_pmc.t (Arbeitskopie)
@@ -1,12 +1,15 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 9;
-# Testing class for the managed pointer PMC and related ops. Note that this
+# Testing class for the managed pointer PMC and related ops. Note that thist';
+#
# does not consider translating any .NET code, just tests the functionality.
is (run_pir(<<'PIR'), <<'OUTPUT', 'int reg');
.loadlib "dotnet_ops"
Index: languages/dotnet/t/unsigned.t
===================================================================
--- languages/dotnet/t/unsigned.t (Revision 14841)
+++ languages/dotnet/t/unsigned.t (Arbeitskopie)
@@ -1,12 +1,15 @@
-#!perl -w
+#!perl
-use Test::More;
-use DotNetTesting;
use strict;
+use warnings;
+use lib qw( lib ../lib ../../lib dotnet dotnet/t );
+use DotNetTesting;
+
use Test::More tests => 7;
-## Testing class for this file.
+## Testing class for this file.t';
+#
die unless compile_cs("t.dll", <<'CSHARP');
namespace Testing
{
