test2.tcl

来自「cpptcl library for ns2」· TCL 代码 · 共 23 行

#
# Copyright (C) 2004-2006, Maciej Sobczak
#
# Permission to copy, use, modify, sell and distribute this software
# is granted provided this copyright notice appears in all copies.
# This software is provided "as is" without express or implied
# warranty, and with no claim as to its suitability for any purpose.
#

load ./test2.so

set i [fun1]
if {$i != 7} { error "Assertion failed" }

set s [fun2]
if {$s != "Ala ma kota"} { error "Assertion failed" }

set i [add 4 5]
if {$i != 9} { error "Assertion failed" }

set i [mystrlen $s]
if {$i != [string length $s]} { error "Assertion failed" }