scsh-common-0.6 0.6.7-8 / usr / share / scsh-0.6 / scsh / test-packages.scm

This file is indexed.

/usr/share/scsh-0.6/scsh/test-packages.scm is in scsh-common-0.6 0.6.7-8.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below. 

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
(define-interface test-base-interface
  (export add-test!
	  add-test-multiple!
	  test-all
	  test-group
	  test-single
	  test-single/args
	  test-summary))

(define-structure test-base test-base-interface
  (open scheme-with-scsh
        handle
	list-lib
	define-record-types)
  (files test-base))

(define-structure file-system-test (export)
  (open	scheme-with-scsh
	test-base)
  (files file-system-tests))

(define-structure process-state-test (export)
  (open	scheme-with-scsh
	test-base)
  (files process-state-tests))

(define-structure env-test 
  (export   
   setenv-test
   getenv-test
   env->alist-test
   alist->env-test
   alist-delete-test
   alist-update-test
   alist-compress-test
   with-env*-test
   with-total-env*-test
   home-directory-test
   exec-path-list-test
   add-before-test
   add-after-test)
  (open scheme-with-scsh
 	thread-fluids
	list-lib
	string-lib)
  (files env-test-code))
  
(define-structure add-env-test
  (export)
  (open scheme-with-scsh
	test-base
        env-test)
  (files env-test-add))

(define-structure system-parameter-tests (export)
  (open scheme-with-scsh
	test-base)
  (begin
    (add-test! 'uname 'system-parameter
	       (lambda ()
		 (let ((uname-rec (uname)))
		   (> (string-length (uname:node-name uname-rec)) 0))))

    (add-test! 'system-name 'system-parameter
	       (lambda ()
		 (> (string-length (system-name)) 0)))))

(define-structure strings-and-chars-test (export)
  (open scheme-with-scsh
	test-base)
  (files strings-and-chars-test))

(define-structure awk-test (export)
  (open scheme-with-scsh
	test-base)
  (files awk-test))

(define-structure time-test (export)
  (open scheme-with-scsh
	test-base)
  (files time-procedure-calls))

(define-structure file-name-maniplation-test (export)
  (open scheme-with-scsh
	test-base)
  (files file-name-manipulation-test))

(define-structure pattern-matching-test (export)
  (open scheme-with-scsh
	test-base)
  (files pattern-matching-test))

(define-structure read-delimited-strings-test (export)
  (open scheme-with-scsh
	test-base)
  (files read-delimited-strings))

(define-structure bitwise-ops-test (export)
  (open scheme-with-scsh
        test-base)
  (files bitwise-ops-test))

(define-structure bug-report-tests (export)
  (open scheme-with-scsh
        test-base)
  (files bug-report-tests))

(define-structure terminal-device-control-test (export)
  (open scheme-with-scsh
        test-base)
  (files terminal-device-control-test))

(define-structure user-and-group-db-access-test (export)
  (open scheme-with-scsh
        test-base)
  (files user-and-group-db-access))

(define-structure test-all
  (export test-all)
  (open scheme
	test-base
	file-system-test
	process-state-test
	add-env-test
	system-parameter-tests
	strings-and-chars-test
        awk-test
        time-test
        file-name-maniplation-test
        pattern-matching-test
        read-delimited-strings-test
        bitwise-ops-test
        bug-report-tests
        terminal-device-control-test
        user-and-group-db-access-test))

APT Browse - Built by Thomas Orozco.