Update of /cvsroot/naviserver/naviserver/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27188/tests
Added Files:
ns_uuencode.test
Log Message:
fixed bug with ns_uuencode and 1 byte string
--- NEW FILE: ns_uuencode.test ---
#
# The contents of this file are subject to the AOLserver Public License
# Version 1.1 (the "License"); you may not use this file except in
# compliance with the License. You may obtain a copy of the License at
# http://aolserver.com/.
#
# Software distributed under the License is distributed on an "AS IS"
# basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
# the License for the specific language governing rights and limitations
# under the License.
#
# The Original Code is AOLserver Code and related documentation
# distributed by AOL.
#
# The Initial Developer of the Original Code is America Online,
# Inc. Portions created by AOL are Copyright (C) 1999 America Online,
# Inc. All Rights Reserved.
#
# Alternatively, the contents of this file may be used under the terms
# of the GNU General Public License (the "GPL"), in which case the
# provisions of GPL are applicable instead of those above. If you wish
# to allow use of your version of this file only under the terms of the
# GPL and not to allow others to use your version of this file under the
# License, indicate your decision by deleting the provisions above and
# replace them with the notice and other provisions required by the GPL.
# If you do not delete the provisions above, a recipient may use your
# version of this file under either the License or the GPL.
#
#
# $Header: /cvsroot/naviserver/naviserver/tests/ns_uuencode.test,v 1.1 2005/10/20 15:03:50 seryakov Exp $
#
package require tcltest 2.2
namespace import -force ::tcltest::*
test ns_uuencode-1.1 {long string} -body {
ns_uuencode 1234567890
} -result MTIzNDU2Nzg5MA==
test ns_uuencode-1.2 {short string} -body {
ns_uuencode @
} -result QA==
test ns_uudecode-2.1 {encoded string} -body {
ns_uudecode MTIzNDU2Nzg5MA==
} -result 1234567890
cleanupTests
|
