26 lines
576 B
Plaintext
26 lines
576 B
Plaintext
# Test whether Guile is being detected
|
|
Given (Detect by shebang):
|
|
#!/usr/local/bin/guile -s
|
|
!#
|
|
Execute:
|
|
Assert guile#detect()
|
|
|
|
Given (Detect by define-module):
|
|
(define-module (foo bar))
|
|
Execute:
|
|
Assert guile#detect()
|
|
|
|
Given (Detect by use-modules):
|
|
(use-modules (foo bar))
|
|
Execute:
|
|
Assert guile#detect()
|
|
|
|
|
|
-----------------------------------------------------------------------------
|
|
# Test whether the file type is adjusted when a Guile file is edited
|
|
Execute (File type adjustment):
|
|
edit test/nonsense.scm
|
|
Then:
|
|
AssertEqual 'scheme.guile', &ft
|
|
bwipeout!
|