#! tclsh

package require fileutil
namespace import fileutil::find

file mkdir dir1_test

if {[file exists link1_test]} {
    file delete link1_test
}

file link -symbolic link1_test dir1_test

puts "first find results: [find . {string match *}]"

# Create broken link
file delete dir1_test

set findResults2 [find . {string match *}]

puts "second find results: $findResults2"
