diff options
Diffstat (limited to 'tests/fileSystemEncoding.test')
| -rw-r--r-- | tests/fileSystemEncoding.test | 42 |
1 files changed, 0 insertions, 42 deletions
diff --git a/tests/fileSystemEncoding.test b/tests/fileSystemEncoding.test deleted file mode 100644 index f47635d..0000000 --- a/tests/fileSystemEncoding.test +++ /dev/null @@ -1,42 +0,0 @@ -#! /usr/bin/env tclsh - -# Copyright © 2019 Poor Yorick - -if {[string equal $::tcl_platform(os) "Windows NT"]} { - return -} - -namespace eval ::tcl::test::fileSystemEncoding { - - if {"::tcltest" ni [namespace children]} { - package require tcltest 2.5 - namespace import -force ::tcltest::* - } - - variable fname1 登鸛鵲樓 - - source [file join [file dirname [info script]] tcltests.tcl] - - test filesystemEncoding-1.0 { - issue bcd100410465 - } -body { - set dir [tcltests::tempdir] - set saved [encoding system] - encoding system iso8859-1 - set fname1a $dir/$fname1 - set utf8name [encoding convertto utf-8 $fname1a] - makeFile {} $utf8name - set globbed [lindex [glob -directory $dir *] 0] - encoding system utf-8 - set res [file exists $globbed] - encoding system iso8859-1 - lappend res [file exists $globbed] - return $res - } -cleanup { - removeFile $utf8name - file delete -force $dir - encoding system $saved - } -result {0 1} - - cleanupTests -} |
