From 67600d927749bd0d7373043e6cd455454ea6ed5c Mon Sep 17 00:00:00 2001 From: Jeff Hobbs Date: Fri, 4 Jun 2004 19:24:26 +0000 Subject: [PATCH] s/scriptics.com/tcl.tk --- examples/simpleExamples.tcl | 4 ++-- tests/vfsUrl.test | 6 +++--- 2 files changed, 5 insertions(+), 5 deletions(-) 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!" -- 2.23.0