Implement %iftoken, test for a single token

Implement %iftoken, a test for a single token.  This is useful in
cases using %+ to splice a macro-provided token.

1 files changed, 19 insertions, 0 deletions

diff --git a/test/iftoken.pl b/test/iftoken.pl
new file mode 100755
index 00000000..bbbb5bcd
--- /dev/null
+++ b/test/iftoken.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+
+@list = ('1', '+1', '1 2', '1,2', 'foo', 'foo bar', '%', '+foo', '<<');
+
+foreach $t (@list) {
+    print "\tdb 'N \"$t\": '\n";
+    print "%iftoken $t\n";
+    print "\tdb 'Yes', 10\n";
+    print "%else\n";
+    print "\tdb 'No', 10\n";
+    print "%endif\n";
+
+    print "\tdb 'C \"$t\": '\n";
+    print "%iftoken $t ; With a comment!\n";
+    print "\tdb 'Yes', 10\n";
+    print "%else\n";
+    print "\tdb 'No', 10\n";
+    print "%endif\n";
+}