summaryrefslogtreecommitdiffstats
path: root/tests/fileSystemEncoding.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/fileSystemEncoding.test')
-rw-r--r--tests/fileSystemEncoding.test42
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
-}