From: Jeff Hobbs <hobbs@users.sourceforge.net>
Date: Fri, 4 Jun 2004 19:24:26 +0000 (+0000)
Subject: s/scriptics.com/tcl.tk
X-Git-Tag: vfs-1-4~93
X-Git-Url: http://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=67600d927749bd0d7373043e6cd455454ea6ed5c;p=tclvfs

s/scriptics.com/tcl.tk
---

diff --git a/examples/simpleExamples.tcl b/examples/simpleExamples.tcl
index f75f755..19fada3 100644
--- 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 3af3b75..098a585 100644
--- 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!"