3 # Requires perl-Test-Simple installation.
4 use Test::More tests => 14;
7 if (-e "../dos2unix.exe") {
10 $DOS2UNIX = "../dos2unix" . $suffix;
11 $MAC2UNIX = "../mac2unix" . $suffix;
12 $UNIX2DOS = "../unix2dos" . $suffix;
13 $UNIX2MAC = "../unix2mac" . $suffix;
15 # dos2unix skip symlink
17 system("cp -f dos.txt out_link.txt");
18 system("rm -f in_link.txt; ln -s out_link.txt in_link.txt");
20 system("$DOS2UNIX -v in_link.txt; cmp out_link.txt dos.txt");
21 ok( $? == 0, 'dos2unix, skip symlink, check symlink target.' );
23 if (-l "in_link.txt") {
29 ok( $symlink == 1, 'dos2unix, skip symlink, check symlink.' );
32 # dos2unix replace symlink
35 system("$DOS2UNIX -v -R in_link.txt; cmp out_link.txt dos.txt");
36 ok( $? == 0, 'dos2unix, replace symlink, check symlink target.' );
38 if (-l "in_link.txt") {
44 ok( $symlink == 0, 'dos2unix, replace symlink, check symlink.' );
46 system("cmp in_link.txt unix.txt");
47 ok( $? == 0, 'dos2unix, replace symlink, check conversion.' );
50 # dos2unix follow symlink
53 system("cp -f dos.txt out_link.txt");
54 system("rm -f in_link.txt; ln -s out_link.txt in_link.txt");
56 system("$DOS2UNIX -v -F in_link.txt; cmp out_link.txt unix.txt");
57 ok( $? == 0, 'dos2unix, follow symlink, check symlink target.' );
59 if (-l "in_link.txt") {
65 ok( $symlink == 1, 'dos2unix, follow symlink, check symlink.' );
69 # unix2dos skip symlink
71 system("cp -f unix.txt out_link.txt");
72 system("rm -f in_link.txt; ln -s out_link.txt in_link.txt");
74 system("$UNIX2DOS -v in_link.txt; cmp out_link.txt unix.txt");
75 ok( $? == 0, 'unix2dos, skip symlink, check symlink target.' );
77 if (-l "in_link.txt") {
83 ok( $symlink == 1, 'unix2dos, skip symlink, check symlink.' );
86 # unix2dos replace symlink
89 system("$UNIX2DOS -v -R in_link.txt; cmp out_link.txt unix.txt");
90 ok( $? == 0, 'unix2dos, replace symlink, check symlink target.' );
92 if (-l "in_link.txt") {
98 ok( $symlink == 0, 'unix2dos, replace symlink, check symlink.' );
100 system("cmp in_link.txt dos.txt");
101 ok( $? == 0, 'unix2dos, replace symlink, check conversion.' );
104 # unix2dos follow symlink
107 system("cp -f unix.txt out_link.txt");
108 system("rm -f in_link.txt; ln -s out_link.txt in_link.txt");
110 system("$UNIX2DOS -v -F in_link.txt; cmp out_link.txt dos.txt");
111 ok( $? == 0, 'unix2dos, follow symlink, check symlink target.' );
113 if (-l "in_link.txt") {
119 ok( $symlink == 1, 'unix2dos, follow symlink, check symlink.' );