Permalink
Browse files

t: add an example tap_harness harness and an xunit test file

  • Loading branch information...
1 parent ddbe2e5 commit f942d1c1828179e14e7fc124925df61c78dd3694 @Whiteknight committed Feb 17, 2011
Showing with 16 additions and 0 deletions.
  1. +9 −0 t/harness
  2. +7 −0 t/test1.t
View
9 t/harness
@@ -0,0 +1,9 @@
+INIT { pir::load_bytecode("parrot_test_tap_harness.pbc"); }
+
+my $harness := ParrotTest::Harness.new();
+$harness.initialize();
+$harness.add_test_dirs("NQP", "t");
+$harness.run();
+
+my $output := ParrotTest::Harness::Output::Console.new();
+$output.show_results_summary($harness);
View
7 t/test1.t
@@ -0,0 +1,7 @@
+INIT { pir::load_bytecode("parrot_test_xunit.pbc"); }
+
+class MyTest1 is UnitTest::Testcase {
+ method test_first() { };
+ method test_second() { };
+ method test_third() { };
+}

0 comments on commit f942d1c

Please sign in to comment.