RosettaCodeData/Task/Empty-string/Tcl/empty-string-1.tcl

set s ""
if {$s eq ""} {puts "s contains an empty string"}
if {$s ne ""} {puts "s contains a non-empty string"}