t/01.t ............ ok
t/hsltupletest.t .. 1/? 
#   Failed test 'A is now between 0 and 360 since it is degrees'
#   at t/hsltupletest.t line 22.
# Looks like you failed 1 test of 6.
t/hsltupletest.t .. Dubious, test returned 1 (wstat 256, 0x100)
Failed 1/6 subtests 
t/tupletest.t ..... ok

Test Summary Report
-------------------
t/hsltupletest.t (Wstat: 256 (exited 1) Tests: 6 Failed: 1)
  Failed test:  6
  Non-zero exit status: 1
Files=3, Tests=12,  0 wallclock secs ( 0.08 usr  0.02 sys +  0.49 cusr  0.07 csys =  0.66 CPU)
Result: FAIL

##</code><code>##

main::(./t/hsltupletest.t:8):	my $prospectTupleRef = [qw~a b c~];
  DB<1> n
main::(./t/hsltupletest.t:10):	my $tuple = HSLTuple->new($prospectTupleRef, 'HSL');
  DB<1> n
main::(./t/hsltupletest.t:12):	ok($tuple->is_valid($prospectTupleRef) == 0, "A B C is an array but not an HSL tuple");
  DB<1> x $tuple
0  FakeTuple=HASH(0x5b2e6ee12a70)
   'axes' => 3
   'space_name' => 'HSL'
   'tupledata' => undef
  DB<2> 

##</code><code>##

main::(./t/hsltupletest.t:20):	ok($tuple->is_valid([qw~361 62 99~]) == 0 , "A must be between 0 and 360 since it is degrees");
  DB<2> s
FakeTuple::is_valid(FakeTuple.pm:34):
34:	    my ($self, $data2Check) = @_;
  DB<2> l
34==>	    my ($self, $data2Check) = @_;
35:	    my $result = 0;
36:	    for(0..2){$result++ if ($data2Check->[$_]=~m/\d+/ && 
37 			            $data2Check->[$_] >= 0    &&
38 				    $data2Check->[$_] <= 100)};
39 	    
40:	    return ( $result == $self->no_of_axes() ) ? 1 : 0;
41 	}
42 	
43 	# code (loosely) borrowed from Basis.pm
  DB<2>