X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fop%2Fsmartmatch.t;h=1ef56c144b519e77e4c665cd981f7f3340d4806d;hb=e5de85fa00355223fa09334b82445b656ae9eeea;hp=0cc9cf0e57c98e9348024a36777a0391dca27f87;hpb=25a0c96dcc03468ea222618d7114b40e33f8486e;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/op/smartmatch.t b/t/op/smartmatch.t
index 0cc9cf0..1ef56c1 100644
--- a/t/op/smartmatch.t
+++ b/t/op/smartmatch.t
@@ -10,10 +10,6 @@ use strict;
 use Tie::Array;
 use Tie::Hash;
 
-# The feature mechanism is tested in t/lib/feature/smartmatch:
-# This file tests the semantics of the operator, without worrying
-# about feature issues such as scoping etc.
-
 # Predeclare vars used in the tests:
 my $deep1 = []; push @$deep1, \$deep1;
 my $deep2 = []; push @$deep2, \$deep2;
@@ -94,6 +90,10 @@ sub fatal {die "fatal sub\n"}
 sub a_const() {die "const\n" if @_; "a constant"}
 sub b_const() {die "const\n" if @_; "a constant"}
 
+# Prefix character :
+#   - expected to match
+# ! - expected to not match
+# @ - expected to be a compilation failure
 __DATA__
 # OBJECT
 # - overloaded