cvsuser 02/05/21 06:46:18
Modified: P5EEx/Blue/t Config.t Reference.t
Log:
updated to use Test::More
Revision Changes Path
1.2 +26 -40 p5ee/P5EEx/Blue/t/Config.t
Index: Config.t
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/t/Config.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- Config.t 3 Jan 2002 18:55:09 -0000 1.1
+++ Config.t 21 May 2002 13:46:18 -0000 1.2
@@ -1,46 +1,32 @@
-#!/usr/local/bin/perl
-######################################################################
-## $Id: Config.t,v 1.1 2002/01/03 18:55:09 spadkins Exp $
-######################################################################
-
-@files = <examples/Config.*[0-9]>;
-foreach $file (@files) {
- push(@cmds,$file) if ($file !~ /\.out$/);
-}
-print "1..", $#cmds+1, "\n";
+#!/usr/local/bin/perl -wT
-for ($i = 0; $i <= $#cmds; $i++) {
- $cmd = $cmds[$i];
- $output = &readfile("$cmd |");
- $goodoutput = &readfile("< $cmd.out");
-
- if ($goodoutput eq "") {
- $goodoutput = $output;
- &writefile("$cmd.out",$goodoutput);
- }
+use Test::More qw(no_plan);
+use lib ".";
+use lib "..";
- if ($output eq $goodoutput) {
- print "ok\n";
- }
- else {
- print "not ok\n";
- }
+BEGIN {
+ use_ok("P5EEx::Blue::P5EE");
+ use_ok("P5EEx::Blue::Config::File");
}
-sub readfile {
- my ($file) = @_;
- if (!open(FILE,$file)) {
- return("");
- }
- my @data = <FILE>;
- close(FILE);
- return (join("", @data));
-}
+my ($conf, $config, $file, $dir);
+#$P5EEx::Blue::DEBUG = 1;
+
+$dir = ".";
+$dir = "t" if (! -f "config.pl");
+$conf = do "$dir/config.pl";
+$config = P5EEx::Blue::P5EE->config();
-sub writefile {
- my ($file,$data) = @_;
- open(FILE,"> $file") || die "Unable to open $file: $!\n";
- print FILE $data;
- close(FILE);
+ok(defined $config, "constructor ok");
+isa_ok($config, "P5EEx::Blue::Config", "right class");
+is_deeply($conf, { %$config }, "config to depth");
+
+foreach $file qw(config.pl config.xml config.ini config.properties) {
+ $config = P5EEx::Blue::Config::File->new( configFile => "$dir/$file" );
+ ok(defined $config, "$file: constructor ok");
+ isa_ok($config, "P5EEx::Blue::Config", "$file: right class");
+ is_deeply($conf, { %$config }, "$file: config to depth");
}
+
+exit 0;
1.2 +28 -41 p5ee/P5EEx/Blue/t/Reference.t
Index: Reference.t
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/t/Reference.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- Reference.t 3 Jan 2002 18:55:09 -0000 1.1
+++ Reference.t 21 May 2002 13:46:18 -0000 1.2
@@ -1,46 +1,33 @@
-#!/usr/local/bin/perl
-######################################################################
-## $Id: Reference.t,v 1.1 2002/01/03 18:55:09 spadkins Exp $
-######################################################################
-
-@files = <examples/Reference.*[0-9]>;
-foreach $file (@files) {
- push(@cmds,$file) if ($file !~ /\.out$/);
-}
-print "1..", $#cmds+1, "\n";
+#!/usr/local/bin/perl -wT
-for ($i = 0; $i <= $#cmds; $i++) {
- $cmd = $cmds[$i];
- $output = &readfile("$cmd |");
- $goodoutput = &readfile("< $cmd.out");
-
- if ($goodoutput eq "") {
- $goodoutput = $output;
- &writefile("$cmd.out",$goodoutput);
- }
+use Test::More qw(no_plan);
+use lib ".";
+use lib "..";
- if ($output eq $goodoutput) {
- print "ok\n";
- }
- else {
- print "not ok\n";
- }
+BEGIN {
+ use_ok("P5EEx::Blue::Reference");
}
-sub readfile {
- my ($file) = @_;
- if (!open(FILE,$file)) {
- return("");
- }
- my @data = <FILE>;
- close(FILE);
- return (join("", @data));
-}
+use strict;
-sub writefile {
- my ($file,$data) = @_;
- open(FILE,"> $file") || die "Unable to open $file: $!\n";
- print FILE $data;
- close(FILE);
-}
+#$P5EEx::Blue::DEBUG = 0;
+my ($ref, $branch);
+
+$ref = P5EEx::Blue::Reference->new();
+ok(defined $ref, "constructor ok");
+isa_ok($ref, "P5EEx::Blue::Reference", "right class");
+
+$ref->set("x.y.z.pi", 3.1416);
+is($ref->get("x.y.z.pi"), 3.1416, "get x.y.z.pi");
+
+$branch = $ref->get_branch("x.y.z");
+is($branch->{pi}, 3.1416, "get_branch()");
+
+$branch = $ref->get_branch("zeta.alpha");
+ok(! defined $branch, "non-existent branch");
+
+$branch = $ref->get_branch("zeta.alpha", 1);
+ok(defined $branch, "newly existent branch");
+
+exit 0;
