-
Notifications
You must be signed in to change notification settings - Fork 138
/
os_unicode.t
162 lines (127 loc) · 3.32 KB
/
os_unicode.t
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
#!./parrot
# Copyright (C) 2011, Parrot Foundation.
=head1 NAME
t/dynpmc/os_unicode.t - test the OS PMC with Unicode filenames
=head1 SYNOPSIS
% parrot t/dynpmc/os_unicode.t
=head1 DESCRIPTION
Tests the C<OS> PMC with Unicode filenames.
=cut
.loadlib 'math_ops'
.sub 'main' :main
.include 'test_more.pir'
.include 'iglobals.pasm'
.local pmc config_hash, interp
.local int enc1, enc2
interp = getinterp
config_hash = interp[.IGLOBALS_CONFIG_HASH]
$S0 = config_hash['osname']
if $S0 == 'MSWin32' goto has_unicode
if $S0 != 'linux' goto no_unicode
enc1 = find_encoding 'platform'
enc2 = find_encoding 'utf8'
if enc1 != enc2 goto no_unicode
has_unicode:
plan(17)
$P0 = loadlib 'os'
$P0 = loadlib 'file'
test_unicode_dirs()
test_unicode_files()
.return()
no_unicode:
skip_all('Unicode filenames not supported on this platform')
.return()
.end
.sub 'unicode_filename'
.param string prefix
.local string filename, unicode
.local pmc array
.local int rnd, enc
array = new ['ResizablePMCArray']
push array, prefix
rnd = rand 1000000
push array, rnd
unicode = ucs4:"\x{2022}\x{20000}"
push array, unicode
filename = sprintf "%s_%06d_%s", array
# make sure it is not utf-8
enc = find_encoding 'ucs4'
filename = trans_encoding filename, enc
.return (filename)
.end
.sub 'test_unicode_dirs'
.local pmc os, file, array, it
.local int found
.local string filename, cwd
os = new ['OS']
isa_ok(os, 'OS', 'new OS')
file = new ['File']
isa_ok(file, 'File', 'new File')
filename = unicode_filename('test')
os.'mkdir'(filename, 0o777)
$I0 = file.'is_dir'(filename)
ok($I0, 'mkdir')
array = os.'readdir'('.')
found = 0
it = iter array
loop:
unless it goto done
$S0 = shift it
if $S0 != filename goto loop
found = 1
goto loop
done:
ok(found, 'readdir')
os.'chdir'(filename)
$S0 = concat '../', filename
$I0 = file.'is_dir'($S0)
ok($I0, 'chdir')
cwd = os.'cwd'()
$I0 = length filename
neg $I0
cwd = substr cwd, $I0
is(cwd, filename, 'cwd')
os.'chdir'('..')
os.'rm'(filename)
$I0 = file.'exists'(filename)
nok($I0, 'rmdir')
.end
.sub 'test_unicode_files'
.local pmc os, file, fh, stat
.local string filename, dest_filename
.local int size
os = new ['OS']
isa_ok(os, 'OS', 'new OS')
file = new ['File']
isa_ok(file, 'File', 'new File')
filename = unicode_filename('test1')
fh = new['FileHandle']
fh.'open'(filename, 'w')
isa_ok(fh, 'FileHandle', 'open')
fh.'print'('1234')
fh.'close'()
$I0 = file.'is_file'(filename)
ok($I0, 'is_file')
$I0 = os.'can_read'(filename)
ok($I0, 'can_read')
stat = os.'stat'(filename)
size = stat[7]
is(size, 4, 'stat')
stat = os.'lstat'(filename)
size = stat[7]
is(size, 4, 'lstat')
dest_filename = unicode_filename('test2')
os.'rename'(filename, dest_filename)
$I0 = file.'exists'(filename)
nok($I0, 'rename old')
$I0 = file.'exists'(dest_filename)
ok($I0, 'rename new')
os.'rm'(dest_filename)
$I0 = file.'exists'(dest_filename)
nok($I0, 'rm')
.end
# Local Variables:
# mode: pir
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir: