ossp-pkg/string-divert/test.pl 1.5 -> 1.6
--- test.pl 2005/02/22 11:04:16 1.5
+++ test.pl 2005/02/22 13:21:34 1.6
@@ -23,7 +23,7 @@
##
use 5.006;
-use Test::More tests => 37;
+use Test::More tests => 38;
# test: module loading
BEGIN { use_ok('String::Divert') };
@@ -38,6 +38,8 @@
$x->name("xx");
ok($x->name() eq "xx", "overwritten object name");
$x->name("x");
+my $y = $x->clone();
+ok($x != $y, "cloning");
# test: simple content
ok($x->string() eq "", "empty initial content");
|
|
