From bf59f3c674fa8de3942dd80ed120143bd6dad5b7 Mon Sep 17 00:00:00 2001
From: Greg Hudson <ghudson@mit.edu>
Date: Mon, 22 Feb 2010 18:27:55 +0000
Subject: [PATCH] Remove some more dejagnu test suite cruft:   * check_date was
 only used by the application tests.   * touch was never used.

git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@23745 dc483132-0cff-0310-8789-dd5450dbe970
---
 src/tests/dejagnu/config/default.exp | 26 --------------------------
 1 file changed, 26 deletions(-)

diff --git a/src/tests/dejagnu/config/default.exp b/src/tests/dejagnu/config/default.exp
index 4686a2601..1689e86fe 100644
--- a/src/tests/dejagnu/config/default.exp
+++ b/src/tests/dejagnu/config/default.exp
@@ -2363,32 +2363,6 @@ proc xst { keytab name } {
     return 1
 }
 
-# Check the date.  The string will be the output of date on this
-# system, and we must make sure that it is in the same timezone as the
-# output of date run a second time.  The first date will be run on an
-# rlogin or some such connection to the local system.  This is to test
-# to make sure that the TZ environment variable is handled correctly.
-# Returns 1 on sucess, 0 on failure.
-
-proc check_date { date } {
-    catch "exec date" ndate
-    set atz ""
-    set ntz ""
-    scan $date "%s %s %d %d:%d:%d %s %d" adow amon adom ahr amn asc atz ayr
-    scan $ndate "%s %s %d %d:%d:%d %s %d" ndow nmon ndom nhr nmn nsc ntz nyr
-    if { $atz != $ntz } {
-	verbose -log "date check failed: $atz != $ntz"
-	return 0
-    }
-    return 1
-}
-
-proc touch { file } {
-    set f [open $file "a"]
-    puts $f ""
-    close $f
-}
-
 # helpful sometimes for debugging the test suite
 proc export_debug_envvars { } {
     global env
-- 
2.26.2