From 3e7b5ef6447d09510c90d96fdf9ab807b0344718 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Mon, 8 Nov 2021 15:52:03 -0800
Subject: [PATCH] add tokenizer tests

---
 dev-bin/run_tokenizer_tests.pl.data | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

diff --git a/dev-bin/run_tokenizer_tests.pl.data b/dev-bin/run_tokenizer_tests.pl.data
index c7255905..0ed184c8 100644
--- a/dev-bin/run_tokenizer_tests.pl.data
+++ b/dev-bin/run_tokenizer_tests.pl.data
@@ -122,3 +122,27 @@ index?#sc#
 "\n"
 ;#sc#
 }#sc#
+
+==> c103.in <==
+print $l<3? $_ : $l & 4 ? --$_ ? $_ : "No more" : $l & 3 ? $_ > 1 ? "if one of those" : "if that" : "e", " cop", $_ ^ 1 ? "ies " : "y ", $l ^ 3 ? $l & 2 ? "w" : $l & 4 ? "z" : "y" : "x";
+print STDERR < BLABLA>;    # ok prints the word 'BLABLA'
+print STDERR <DATA>;       # ok prints lines after __DATA__
+print STDERR < DATA>;      # ok prints the word 'DATA'
+print BLABLA <DATA>;       # ok; does nothing unless BLABLA is defined
+print STDOUT <>;           # ok
+print STDOUT < >;          # ok
+print STDOUT < 6>;         # ok; prints '6'
+print STDOUT < DATA>;      # ok
+print STDOUT <DATA>;       # ok
+print STDOUT <BUBBA>;      # ok
+print STDOUT < BUBBA>;     # ok
+print STDOUT <$BUBBA>;     # ok
+print $fh <DATA>;          # ok
+print $fh <BUBBA>;         # ok
+__END__
+print $fh < DATA>;     # syntax error
+print $fh < BUBBA>;    # syntax error
+print $fh <>;          # syntax error
+print $fh < >;         # syntax error
+print $fh < 6>;        # error
+print $fh <6>;         # error
-- 
2.39.5