📄 pwd.test
字号:
# Commands covered: pwd## This file contains a collection of tests for one or more of the Tcl# built-in commands. Sourcing this file into Tcl runs the tests and# generates output for errors. No output means no errors were found.## Copyright (c) 1991-1993 The Regents of the University of California.# Copyright (c) 1994-1997 Sun Microsystems, Inc.## See the file "license.terms" for information on usage and redistribution# of this file, and for a DISCLAIMER OF ALL WARRANTIES.## SCCS: @(#) pwd.test 1.2 97/08/13 23:06:41if {[string compare test [info procs test]] == 1} then {source defs}test pwd-1.1 {simple pwd} { catch pwd} 0test pwd-1.2 {simple pwd} { expr [string length pwd]>0} 1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -