mercurylang/mercury
1
0
Fork 0
mirror of https://github.com/Mercury-Language/mercury.git synced 2025-12-12 12:26:29 +00:00
Code Issues Projects Releases Wiki Activity

Update a moose regression test.

Browse Source 
extras/moose/tests/array_based.moo:
    Replace `:- external' declarations with `:- pragma external_func'
    declarations.
This commit is contained in:
Julien Fischer
2016-04-26 13:32:33 +10:00
parent be553f9b16
commit c954687d2e
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
extras/moose/tests/array_based.moo
View File

@@ -1,4 +1,4 @@
% This is a regression test. It tests that Moo supports parsers that do not % This is a regression test. It tests that moose supports parsers that do not
% use lists. % use lists.
:- module array_based. :- module array_based.
@@ -57,11 +57,11 @@ scan(Cs0, Toks0, Toks) :-
then then
scan(Cs, array_cons(num(Num), Toks0), Toks) scan(Cs, array_cons(num(Num), Toks0), Toks)
else if else if
C = ('+') C = ('+')
then then
scan(Cs, array_cons('+', Toks0), Toks) scan(Cs, array_cons('+', Toks0), Toks)
else if else if
C = ('(') C = ('(')
then then
scan(Cs, array_cons('(', Toks0), Toks) scan(Cs, array_cons('(', Toks0), Toks)
else if else if
@@ -74,8 +74,8 @@ scan(Cs0, Toks0, Toks) :-
). ).
:- func array_cons(T, array(T)) = array(T). :- func array_cons(T, array(T)) = array(T).
:- external(array_cons/2). :- pragma external_func(array_cons/2).
:- func array_reverse(array(T)) = array(T). :- func array_reverse(array(T)) = array(T).
:- external(array_reverse/1). :- pragma external_func(array_reverse/1).
:- func array_tail(array(T)) = array(T). :- func array_tail(array(T)) = array(T).
:- external(array_tail/1). :- pragma external_func(array_tail/1).