s/scriptics.com/tcl.tk

diff --git a/examples/simpleExamples.tcl b/examples/simpleExamples.tcl
index f75f755289ecd4b96d9691f16411dd582f84607f..19fada3b3f93829538da1db6b4a181f51bad388e 100644 (file)
--- a/examples/simpleExamples.tcl
+++ b/examples/simpleExamples.tcl
@@ -16,8 +16,8 @@ package require vfs::http
  
 puts "Adding ftp:// volume..."
 vfs::urltype::Mount ftp
-set listing [glob -dir ftp://ftp.scriptics.com/pub *]
-puts "ftp.scriptics.com/pub listing"
+set listing [glob -dir ftp://ftp.tcl.tk/pub *]
+puts "ftp.tcl.tk/pub listing"
 puts "$listing"
 puts "----"
 puts "(file volumes is '[file volumes]')"

diff --git a/tests/vfsUrl.test b/tests/vfsUrl.test
index 3af3b756763308b82f6adef30d629134a0ce2ecb..098a5859b7648f0a34abfe4d7b7918b68751b393 100644 (file)
--- a/tests/vfsUrl.test
+++ b/tests/vfsUrl.test
@@ -39,7 +39,7 @@ test vfsUrl-1.1 {mount} {
 } {Mounted at "ftp://"}
 
 test vfsUrl-1.2 {mount} {
-    file exists ftp://ftp.scriptics.com
+    file exists ftp://ftp.tcl.tk
 } {1}
 
 test vfsUrl-1.3 {mounted volumes} {
@@ -54,7 +54,7 @@ test vfsUrl-1.3 {mounted volumes} {
 
 test vfsUrl-2.1 {auto-mount ftp and copy file} {vfsWritable} {
     file delete -force README.tclversions
-    file copy ftp://ftp.scriptics.com/pub/tcl/README.tclversions $vfsTestDir
+    file copy ftp://ftp.tcl.tk/pub/tcl/README.tclversions $vfsTestDir
     set to [file join $vfsTestDir README.tclversions]
     if {[file exists $to]} {
        if {[file size $to] < 800} {
@@ -70,7 +70,7 @@ test vfsUrl-2.1 {auto-mount ftp and copy file} {vfsWritable} {
 } {ok}
 
 test vfsUrl-2.2 {auto-mount bad ftp} {
-    catch {file copy ftp://ftp.scriptxxics.com/pub/tcl/README.tclversions $vfsTestDir}
+    catch {file copy ftp://invalid.name.dom/pub/tcl/README.tclversions $vfsTestDir}
     set to [file join $vfsTestDir README.tclversions]
     if {[file exists $to]} {
        set res "file shouldn't exist!"