Megatest

Check-in [b82fdf714f]
Login
Overview
Comment:Added linktree check
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65-newview
Files: files | file ages | folders
SHA1: b82fdf714f1b169991340004c60d758e09ba0fbf
User & Date: mrwellan on 2020-04-10 10:58:24
Other Links: branch diff | manifest | tags
Context
2020-04-10
17:20
Cleaned up Makefile, streamlined deps and re-enabled commonmod check-in: caed2ecdc2 user: mrwellan tags: v1.65-newview
10:58
Added linktree check check-in: b82fdf714f user: mrwellan tags: v1.65-newview
00:06
Added check of disks section check-in: 2c22506f66 user: matt tags: v1.65-newview
Changes

Modified mutils/mutils.scm from [ce6bb4c4f6] to [d8d310a6fa].

291
292
293
294
295
296
297
298





299
300
301
302
303
304
	   (match
	    entry
	    ((dname path)
	     (print "Disk " dname " at " path " writeable: "
		    (if (check-write-create path) "yes" "NO")))
	    (else (print "bad entry: " entry))))
	 (hash-table-ref/default cdat "disks" '()))))
	





  ;;    check load on homehost
  ;;    each run disk read/write
  ;;    link tree writeable
  )
  
)







|
>
>
>
>
>

<




291
292
293
294
295
296
297
298
299
300
301
302
303
304

305
306
307
308
	   (match
	    entry
	    ((dname path)
	     (print "Disk " dname " at " path " writeable: "
		    (if (check-write-create path) "yes" "NO")))
	    (else (print "bad entry: " entry))))
	 (hash-table-ref/default cdat "disks" '()))))

  (print "Have link tree and it is writable: "
	 (if (and (file-exists? "lt")
		  (check-write-create "lt"))
	     "yes"
	     "NO"))
  ;;    check load on homehost

  ;;    link tree writeable
  )
  
)