cruft pre-Biome

cjfields · Nov 20, 2011 · 8588113 · 8588113
1 parent b2ab252
commit 8588113
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 112 deletions.
diff --git a/t/Biome.t b/t/Biome.t
@@ -8,7 +8,7 @@ BEGIN {
 	use Test::Exception;
 }
 
-our $VERBOSE = $ENV{BIOMOOSE_DEBUG} || 0;
+our $VERBOSE = $ENV{BIOME_DEBUG} || 0;
 
 ###############################
 
@@ -28,28 +28,27 @@ package main;
 for my $att (qw(test1 -test1)) {
 	# note use of named parameter passing; needs to change to use '-'
 	my $i = MyClass1->new($att => 'Foo');
-	
+
 	for my $attribute (qw(verbose strict test1)) {
 		has_attribute_ok($i, $attribute);
 	}
-	
+
 	is($i->test1, 'Foo', "Named parameter [$att]");
-	
+
 	meta_ok('Biome::Root', 'Biome::Root has a meta');
 	meta_ok($i, 'Instances of Biome::Root have a meta class');
-	
+
 	isa_ok($i->meta, 'Biome::Meta::Class');
 	# We should hook in Bio::Root::Exceptions here
 	throws_ok {$i->strict('Foo')} qr/Validation failed for 'Int'/,
 		'verbose() requires an Int value';
 	throws_ok {$i->verbose('Foo')} qr/Validation failed for 'Bool'/,
 		'debug() requires a Bool value (0 or 1)';
-	
+
 	is($i->strict, 0, 'default strictness');
 	is($i->verbose, $VERBOSE, 'default verbosity');
-	
+
 	# explicit warn/throw
-	
+
 	throws_ok {$i->throw('Foo!')} 'Biome::Meta::Error', 'throw()';
 }
-
diff --git a/t/Location/Split.t b/t/Location/Split.t