[107485] branches/gsoc13-tests/tests/test/checksums-1

marius at macports.org marius at macports.org
Mon Jul 1 01:44:24 PDT 2013


Revision: 107485
          https://trac.macports.org/changeset/107485
Author:   marius at macports.org
Date:     2013-07-01 01:44:24 -0700 (Mon, 01 Jul 2013)
Log Message:
-----------
Merged checksum.tcl and test_checksum.tcl.

Added Paths:
-----------
    branches/gsoc13-tests/tests/test/checksums-1/test.tcl

Removed Paths:
-------------
    branches/gsoc13-tests/tests/test/checksums-1/checksum.tcl
    branches/gsoc13-tests/tests/test/checksums-1/test_checksum.tcl

Deleted: branches/gsoc13-tests/tests/test/checksums-1/checksum.tcl
===================================================================
--- branches/gsoc13-tests/tests/test/checksums-1/checksum.tcl	2013-07-01 08:15:12 UTC (rev 107484)
+++ branches/gsoc13-tests/tests/test/checksums-1/checksum.tcl	2013-07-01 08:44:24 UTC (rev 107485)
@@ -1,32 +0,0 @@
-set autoconf "../../../Mk/macports.autoconf.mk"
-
-source ../library.tcl
-
-proc get_md5 {filename} {
-    set md5 "debug: calculated (md5)"
-
-    set line [get_line $filename $md5]
-    set result [lrange [split $line " "] 4 4]
-
-    return $result
-}
-
-
-proc get_sha {filename} {
-    set sha "debug: calculated (sha1)"
-
-    set line [get_line $filename $sha]
-    set result [lrange [split $line " "] 4 4]
-
-    return $result
-}
-
-
-proc get_rmd {filename} {
-    set sha "debug: calculated (rmd160)"
-
-    set line [get_line $filename $sha]
-    set result [lrange [split $line " "] 4 4]
-
-    return $result
-}

Added: branches/gsoc13-tests/tests/test/checksums-1/test.tcl
===================================================================
--- branches/gsoc13-tests/tests/test/checksums-1/test.tcl	                        (rev 0)
+++ branches/gsoc13-tests/tests/test/checksums-1/test.tcl	2013-07-01 08:44:24 UTC (rev 107485)
@@ -0,0 +1,80 @@
+package require tcltest 2
+namespace import tcltest::*
+
+source [file dirname $argv0]/../library.tcl
+
+set file "output"
+set dir "work"
+set path [file dirname $argv0]
+
+# Useful procs
+proc get_md5 {filename} {
+    global path
+    set md5 "debug: calculated (md5)"
+
+    set line [get_line $path/$filename $md5]
+    set result [lrange [split $line " "] 4 4]
+
+    return $result
+}
+
+
+proc get_sha {filename} {
+    global path
+    set sha "debug: calculated (sha1)"
+
+    set line [get_line $path/$filename $sha]
+    set result [lrange [split $line " "] 4 4]
+
+    return $result
+}
+
+
+proc get_rmd {filename} {
+    global path
+    set sha "debug: calculated (rmd160)"
+
+    set line [get_line $path/$filename $sha]
+    set result [lrange [split $line " "] 4 4]
+
+    return $result
+}
+
+# Initial setup
+load_variables
+port_clean [file dirname $argv0]
+port_run [file dirname $argv0]
+
+# Test cases
+test md5_checksum {
+    Regression test for MD5 Checksum.
+} -constraints {
+    root
+} -body {
+    get_md5 $file
+} -result "d41d8cd98f00b204e9800998ecf8427e"
+
+
+test sha1_checksum {
+    Regression test for SHA1 Checksum.
+} -constraints {
+    root
+} -body {
+    get_sha $file
+} -result "da39a3ee5e6b4b0d3255bfef95601890afd80709"
+
+
+test rmd160_checksum {
+    Regression test for RMD160 Checksum.
+} -constraints {
+    root
+} -body {
+    get_rmd $file
+} -result "9c1185a5c5e9fc54612808977ee8f548b2258d31"
+
+
+# remove output file and print results
+removeFile $file
+removeDirectory $dir
+
+cleanupTests

Deleted: branches/gsoc13-tests/tests/test/checksums-1/test_checksum.tcl
===================================================================
--- branches/gsoc13-tests/tests/test/checksums-1/test_checksum.tcl	2013-07-01 08:15:12 UTC (rev 107484)
+++ branches/gsoc13-tests/tests/test/checksums-1/test_checksum.tcl	2013-07-01 08:44:24 UTC (rev 107485)
@@ -1,46 +0,0 @@
-package require tcltest 2
-namespace import tcltest::*
-
-source ./checksum.tcl
-
-set file "output"
-set dir "work"
-
-# Initial setup
-load_variables
-port_clean
-port_run
-
-
-test md5_checksum {
-    Regression test for MD5 Checksum.
-} -constraints {
-    root
-} -body {
-    get_md5 $file
-} -result "d41d8cd98f00b204e9800998ecf8427e"
-
-
-test sha1_checksum {
-    Regression test for SHA1 Checksum.
-} -constraints {
-    root
-} -body {
-    get_sha $file
-} -result "da39a3ee5e6b4b0d3255bfef95601890afd80709"
-
-
-test rmd160_checksum {
-    Regression test for RMD160 Checksum.
-} -constraints {
-    root
-} -body {
-    get_rmd $file
-} -result "9c1185a5c5e9fc54612808977ee8f548b2258d31"
-
-
-# remove output file and print results
-removeFile $file
-removeDirectory $dir
-
-cleanupTests
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20130701/5ef72eca/attachment-0001.html>


More information about the macports-changes mailing list