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')