Add forth ctags unit test

geany · Nov 24, 2024 · c7d5a26 · c7d5a26
1 parent 7f9bed0
commit c7d5a26
Show file tree

Hide file tree

Showing 4 changed files with 51 additions and 0 deletions.
diff --git a/tests/ctags/Makefile.am b/tests/ctags/Makefile.am
@@ -307,6 +307,7 @@ test_sources = \
 	simple.d						\
 	simple.diff						\
 	simple.docbook					\
+	simple.fth						\
 	simple.hs						\
 	simple.hx						\
 	simple.html						\

diff --git a/tests/ctags/simple.fth b/tests/ctags/simple.fth
@@ -0,0 +1,31 @@
+
+( https://rosettacode.org/wiki/FizzBuzz#Forth / https://skilldrick.github.io/easyforth/ ) 
+
+\ Works in gforth and other ANS forth. Other Forth may differ.
+
+10 constant DUMMY1
+12 CONSTANT DUMMY2
+
+variable dummy3
+variable dummy4
+VARIABLE dummy5
+
+11 dummy3 !
+13 dummy4 !
+
+: fizz?  \ a simple comment 
+3 mod 0 = dup if ." Fizz" then ;
+: buzz?  
+5 mod 0 = dup if ." Buzz" then ;
+
+: fizz-buzz?  
+dup fizz? swap buzz? or invert ;
+
+: do-fizz-buzz  
+25 1 do cr i fizz-buzz? if i . then loop ;
+
+do-fizz-buzz
+cr
+
+quit
+\ bye
diff --git a/tests/ctags/simple.fth.tags b/tests/ctags/simple.fth.tags
@@ -0,0 +1,18 @@
+DUMMY1�65536�0
+macro:      DUMMY1
+DUMMY2�65536�0
+macro:      DUMMY2
+buzz?�16�0
+function:   buzz?
+do-fizz-buzz�16�0
+function:   do-fizz-buzz
+dummy3�16384�0
+variable:   dummy3
+dummy4�16384�0
+variable:   dummy4
+dummy5�16384�0
+variable:   dummy5
+fizz-buzz?�16�0
+function:   fizz-buzz?
+fizz?�16�0
+function:   fizz?
diff --git a/tests/meson.build b/tests/meson.build
@@ -304,6 +304,7 @@ ctags_tests = [
 	'ctags/simple.d.tags',
 	'ctags/simple.diff.tags',
 	'ctags/simple.docbook.tags',
+	'ctags/simple.fth.tags',
 	'ctags/simple.hs.tags',
 	'ctags/simple.hx.tags',
 	'ctags/simple.html.tags',