Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Added perl6 testing header code.

  • Loading branch information...
commit 7cac6d4a15d5f6a58e816175c1412420d96f85b9 1 parent adc4ed7
@Takadonet authored
Showing with 33 additions and 29 deletions.
  1. +18 −16 t/12_Tree_Simple_exceptions_test.t
  2. +15 −13 t/13_Tree_Simple_clone_test.t
View
34 t/12_Tree_Simple_exceptions_test.t
@@ -1,23 +1,25 @@
-# #!/usr/bin/perl
+use v6;
+use Test;
+plan 52;
+BEGIN
+{
+ @*INC.push('lib');
+ @*INC.push('blib');
+}
-# use strict;
-# use warnings;
+use Tree::Simple;
-# use Test::More tests => 52;
-# use Test::Exception;
-# ## ----------------------------------------------------------------------------
-# ## Exception Tests for Tree::Simple
-# ## ----------------------------------------------------------------------------
-
-# use Tree::Simple;
+## ----------------------------------------------------------------------------
+## Exception Tests for Tree::Simple
+## ----------------------------------------------------------------------------
# my $BAD_OBJECT = bless({}, "Fail");
# my $TEST_SUB_TREE = Tree::Simple->new("test");
-# # -----------------------------------------------
-# # exceptions for new
-# # -----------------------------------------------
+# -----------------------------------------------
+# exceptions for new
+# -----------------------------------------------
# # not giving a proper argument for parent
# throws_ok {
@@ -350,6 +352,6 @@
# $tree->setUID();
# } qr/^Insufficient Arguments/, '... this should croak';
-# ## ----------------------------------------------------------------------------
-# ## end Exception Tests for Tree::Simple
-# ## ----------------------------------------------------------------------------
+## ----------------------------------------------------------------------------
+## end Exception Tests for Tree::Simple
+## ----------------------------------------------------------------------------
View
28 t/13_Tree_Simple_clone_test.t
@@ -1,16 +1,18 @@
-# #!/usr/bin/perl
-
-# use strict;
-# use warnings;
-
-# use Test::More tests => 48;
-
-# ## ----------------------------------------------------------------------------
-# # NOTE:
-# # This specifically tests the details of the cloning functions
-# ## ----------------------------------------------------------------------------
-
-# use Tree::Simple;
+use v6;
+use Test;
+plan 48;
+BEGIN
+{
+ @*INC.push('lib');
+ @*INC.push('blib');
+}
+
+use Tree::Simple;
+
+## ----------------------------------------------------------------------------
+# NOTE:
+# This specifically tests the details of the cloning functions
+## ----------------------------------------------------------------------------
# my $tree = Tree::Simple->new(Tree::Simple->ROOT);
# isa_ok($tree, 'Tree::Simple');
Please sign in to comment.
Something went wrong with that request. Please try again.