Changeset 39957 in project


Ignore:
Timestamp:
04/10/21 23:30:34 (5 weeks ago)
Author:
Kon Lovett
Message:

isolate possibly failing test w/ test-pass (which only checks that it doesn't error)

Location:
release/5/posix-utils/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/5/posix-utils/trunk/posix-utils.egg

    r39915 r39957  
    22
    33((synopsis "posix-utils")
    4  (version "2.0.3")
     4 (version "2.0.4")
    55 (category misc)
    66 (author "Kon Lovett")
     
    1111  (extension posix-utils
    1212    (types-file)
    13     (csc-options "-O3" "-d1" "-strict-types" "-no-procedure-checks-for-toplevel-bindings") ) ) )
     13    (csc-options "-O3" "-d1" "-strict-types" "-no-procedure-checks-for-toplevel-bindings" "-no-procedure-checks-for-usual-bindings") ) ) )
  • release/5/posix-utils/trunk/tests/posix-utils-test.scm

    r38115 r39957  
    66  test
    77  posix-utils)
     8
     9(define-syntax test-pass
     10  (syntax-rules ()
     11    ((test-pass ?exp)
     12      (test-pass #<#EOS
     13#{'?exp}
     14EOS
     15        ?exp) )
     16    ((test-pass ?msg ?exp)
     17      (test-assert ?msg (or ?exp #t)) ) ) )
    818
    919(test-group "eol"
     
    5060
    5161(test-group "shell variables"
    52   (test-assert "OSTYPE" (get-shell-variable "OSTYPE"))
    53   (test-assert "OSTYPE (can fail)" (shell-variable-bound? "OSTYPE"))
     62  (test-assert (get-shell-variable "OSTYPE"))
     63  (test-pass (shell-variable-bound? "OSTYPE"))
    5464)
    5565
Note: See TracChangeset for help on using the changeset viewer.