Megatest

Diff
Login

Differences From Artifact [3d741a045b]:

To Artifact [354dcb520b]:


394
395
396
397
398
399
400
401
402
403






404
405
406
407
408
409
410
394
395
396
397
398
399
400



401
402
403
404
405
406
407
408
409
410
411
412
413







-
-
-
+
+
+
+
+
+







    (system  (conc "mkdir -p " dfullp))
    (debug:print 2 " - creating link from " dfullp "/" testname " to " lnkpath)
    (system  (conc "mkdir -p " lnkpath))

    ;; I suspect this section was deleting test directories under some 
    ;; wierd sitations? This doesn't make sense - reenabling the rm -f 

    (if (file-exists? (conc lnkpath "/" testname))
    	(system (conc "rm -f " lnkpath "/" testname)))
    (system  (conc "ln -sf " dfullp " " lnkpath "/" testname))
    (let ((testlink (conc lnkpath "/" testname)))
      (if (and (file-exists? testlink)
	       (or (regular-file? testlink)
		   (symbolic-link? testlink)))
	  (system (conc "rm -f " testlink)))
      (system  (conc "ln -sf " dfullp " " testlink)))
    (if (directory? dfullp)
	(begin
	  (let* ((cmd    (conc "rsync -av" (if (> *verbosity* 1) "" "q") " " test-path "/ " dfullp "/"))
		 (status (system cmd)))
	    (if (not (eq? status 0))
		(debug:print 2 "ERROR: problem with running \"" cmd "\"")))
	  (list dfullp toptest-path))