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

[marius at macports.org]

Revision: 107651
          https://trac.macports.org/changeset/107651
Author:   marius at macports.org
Date:     2013-07-03 15:31:02 -0700 (Wed, 03 Jul 2013)
Log Message:
-----------
checksums-1 added description, removed root constraint, cleanup.

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

Removed Paths:
-------------
    branches/gsoc13-tests/tests/test/checksums-1/master

Deleted: branches/gsoc13-tests/tests/test/checksums-1/master
===================================================================
--- branches/gsoc13-tests/tests/test/checksums-1/master	2013-07-03 21:57:34 UTC (rev 107650)
+++ branches/gsoc13-tests/tests/test/checksums-1/master	2013-07-03 22:31:02 UTC (rev 107651)
@@ -1,6 +0,0 @@
---->  Fetching distfiles for checksum
---->  Verifying checksums for checksum
---->  Extracting checksum
---->  Configuring checksum
---->  Building checksum
---->  Testing checksum

Modified: branches/gsoc13-tests/tests/test/checksums-1/test.tcl
===================================================================
--- branches/gsoc13-tests/tests/test/checksums-1/test.tcl	2013-07-03 21:57:34 UTC (rev 107650)
+++ branches/gsoc13-tests/tests/test/checksums-1/test.tcl	2013-07-03 22:31:02 UTC (rev 107651)
@@ -3,8 +3,8 @@
 
 source [file dirname $argv0]/../library.tcl
 
-set file "output"
-set dir "work"
+makeFile "" $output_file
+makeDirectory $work_dir
 set path [file dirname [file normalize $argv0]]
 
 # Initial setup
@@ -14,6 +14,7 @@
 port_clean $path
 port_run $path
 
+
 # Useful procs
 proc get_md5 {filename} {
     global path
@@ -25,7 +26,6 @@
     return $result
 }
 
-
 proc get_sha {filename} {
     global path
     set sha "debug: calculated (sha1)*"
@@ -36,7 +36,6 @@
     return $result
 }
 
-
 proc get_rmd {filename} {
     global path
     set sha "debug: calculated (rmd160)*"
@@ -47,36 +46,28 @@
     return $result
 }
 
+
 # Test cases
 test md5_checksum {
     Regression test for MD5 Checksum.
-} -constraints {
-    root
 } -body {
-    get_md5 $file
+    get_md5 $output_file
 } -result "d41d8cd98f00b204e9800998ecf8427e"
 
 
 test sha1_checksum {
     Regression test for SHA1 Checksum.
-} -constraints {
-    root
 } -body {
-    get_sha $file
+    get_sha $output_file
 } -result "da39a3ee5e6b4b0d3255bfef95601890afd80709"
 
 
 test rmd160_checksum {
     Regression test for RMD160 Checksum.
-} -constraints {
-    root
 } -body {
-    get_rmd $file
+    get_rmd $output_file
 } -result "9c1185a5c5e9fc54612808977ee8f548b2258d31"
 
 
-# remove output file and print results
-removeFile $file
-removeDirectory $dir
-
+cleanup
 cleanupTests
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20130703/34eabe9b/attachment.html>