Better tests (and mark some as TODO)

t/slices.t

@@ -12,13 +12,13 @@ $hash{ key11 } = "eleven";
 
 ($one, $two) = @hash{ 'key1', 'key2' };
 
-ok( $one eq $hash{ key1  } );
-ok( $two eq $hash{ key2  } );
+is( $one, $hash{ key1  }, 'Simple key check 1' );
+is( $two, $hash{ key2  }, 'Simple key check 2' );
 
 %ones = %hash{ 'key1', 'key11' };
 
-ok( $ones{ key1  } eq $hash { key1  } );
-ok( $ones{ key11 } eq $hash { key11 } );
+is( $ones{ key1  }, $hash { key1  }, 'Simple key check 3' );
+is( $ones{ key11 }, $hash { key11 }, 'Simple key check 4' );
 
 undef $one;
 undef $two;
@@ -28,17 +28,27 @@ undef %ones;
 
 ($one, $two) = @hash{ qr/^key\d$/ };
 
-ok( $one eq $hash{ key1  } );
-ok( $two eq $hash{ key2  } );
+is( $one, $hash{ key1  }, 'Slice test 1' );
 
-%ones = %hash{ qr/^key1+$/ };
+TODO: {
+  local $TODO = q[This doesn't work];
 
-ok( $ones{ key1  } eq $hash { key1  } );
-ok( $ones{ key11 } eq $hash { key11 } );
+  is( $two, $hash{ key2  }, 'Slice test 2' );
 
-@dels = delete @hash{ qr/^key\d$/ };
-ok( $#dels == 1 );
+  %ones = %hash{ qr/^key1+$/ };
+
+  is( $ones{ key1  }, $hash { key1  }, 'Slice test 3' );
+  is( $ones{ key11 }, $hash { key11 }, 'Slice test 4' );
+
+  @dels = delete @hash{ qr/^key\d$/ };
+  is( $#dels, 1, 'Deletion test 1' );
+}
 
 @oops = delete @hash { 'key3', 'key2' };
-ok( $#oops == 1 );
-ok( $oops[0] eq undef );
+is( $#oops, 1, 'Deletion test 2' );
+
+TODO: {
+  local $TODO = q[This doesn't work];
+
+  ok( ! defined $oops[0], 'Deletion test 3' );
+}