Add proper test for 3384
Change-Id: I9ba242a27a05fcb4878b9cee544c3d898ce61ec3
diff --git a/script/tei2korapxml b/script/tei2korapxml
index 0912d30..9ce2c8e 100755
--- a/script/tei2korapxml
+++ b/script/tei2korapxml
@@ -160,7 +160,7 @@
my $dir; # text directory (below $_root_dir)
-my ( $text_id, $text_id_esc ); # '$text_id_esc' = escaped version of $text_id (see %ent)
+my ( $text_id, $text_id_esc ); # '$text_id_esc' = escaped version of $text_id
my ( $reader, # instance of 'XML::LibXML::Reader->new' (on input '$buf_in')
$tree_data ); # instance of 'XML::CompactTree::XS::readSubtreeToPerl' (on input '$reader')