test/utf8.t

   1 #!/usr/bin/perl
   2
   3 # Requires perl-Test-Simple installation.
   4 use Test::Simple tests => 6;
   5
   6 $suffix = "";
   7 if (-e "../dos2unix.exe") {
   8   $suffix = ".exe";
   9 }
  10 $DOS2UNIX = "../dos2unix" . $suffix;
  11 $MAC2UNIX = "../mac2unix" . $suffix;
  12 $UNIX2DOS = "../unix2dos" . $suffix;
  13 $UNIX2MAC = "../unix2mac" . $suffix;
  14
  15 system("$DOS2UNIX -v -n dos_bom.txt out_unix.txt; cmp out_unix.txt unix.txt");
  16 ok( $? == 0, 'dos2unix removes BOM' );
  17
  18 system("$DOS2UNIX -v -b -n dos_bom.txt out_unix.txt; cmp out_unix.txt unix_bom.txt");
  19 ok( $? == 0, 'dos2unix -b keeps BOM' );
  20
  21 system("$DOS2UNIX -v -m -n dos.txt out_unix.txt; cmp out_unix.txt unix_bom.txt");
  22 ok( $? == 0, 'dos2unix -m adds BOM' );
  23
  24 system("$UNIX2DOS -v -n unix_bom.txt out_dos.txt; cmp out_dos.txt dos_bom.txt");
  25 ok( $? == 0, 'unix2dos keeps BOM' );
  26
  27 system("$UNIX2DOS -v -r -n unix_bom.txt out_dos.txt; cmp out_dos.txt dos.txt");
  28 ok( $? == 0, 'unix2dos -r removes BOM' );
  29
  30 system("$UNIX2DOS -v -m -n unix.txt out_dos.txt; cmp out_dos.txt dos_bom.txt");
  31 ok( $? == 0, 'unix2dos -m adds BOM' );
  32
  33