diff options
| author | Rob Savoye <rob@welcomehome.org> | 2010-11-29 18:02:07 -0700 |
|---|---|---|
| committer | Rob Savoye <rob@welcomehome.org> | 2010-11-29 18:02:07 -0700 |
| commit | 8976fdfda16729f433c74ed11b2f8f7ec7340210 (patch) | |
| tree | 27e70b8191fc3b13f5d9a9665e045b836b0a88a6 /gr-run-waveform/guile/simple.scm | |
| parent | 99f4366b48d254051f68b10b2d43b83cc9fb2143 (diff) | |
improve xyzzy-search-load-path tests
Diffstat (limited to 'gr-run-waveform/guile/simple.scm')
| -rw-r--r-- | gr-run-waveform/guile/simple.scm | 16 |
1 files changed, 13 insertions, 3 deletions
diff --git a/gr-run-waveform/guile/simple.scm b/gr-run-waveform/guile/simple.scm index fc215c21a7..eafef0e6cf 100644 --- a/gr-run-waveform/guile/simple.scm +++ b/gr-run-waveform/guile/simple.scm @@ -43,8 +43,18 @@ path-with-xyzzy (define result7 (xyzzy-primitive-load expected)) (define result8 (xyzzy-primitive-load-path expected)) +;; This should return the full name, or #f if it fails. (define result9 (xyzzy-search-load-path filename)) -;;(if (string=? result9 expected) -;; (display "PASSED: xyzzy-search-load-path from guile\n") -;; (display "FAILED: xyzzy-search-load-path from guile\n")) +(if (boolean? result9) + (display "XFAILED: xyzzy-search-load-path from guile\n") + (if (string=? result9 expected) + (display "XFAILED: xyzzy-search-load-path from guile\n") + (display "XPASSED: xyzzy-search-load-path from guile\n"))) + +(define result10 (xyzzy-search-load-path expected)) +(if (boolean? result9) + (display "FAILED: xyzzy-search-load-path from guile\n") + (if (string=? result10 expected) + (display "PASSED: xyzzy-search-load-path from guile\n") + (display "FAILED: xyzzy-search-load-path from guile\n"))) |