Commit 196b405f authored by Maxime Perrotin's avatar Maxime Perrotin
Browse files

Add test case

parent 2125692e
......@@ -28,8 +28,8 @@ test-qgen-gt-c:
test-ada:
$(OPENGEODE) og.pr --toAda
mono $(ASN1SCC) -Ada -typePrefix asn1Scc -equal dataview-uniq.asn
$(GNATMAKE) -O$(O) -c *.adb
$(GNATBIND) -n og.ali
cp ris.ada ris.ads && cp check.ada check.adb
gnat make check && ./check
test-c:
$(OPENGEODE) og.pr --toC
......
with og;
use og;
with RIs;
procedure check is
begin
null;
end check;
TASTE-Dataview DEFINITIONS ::=
BEGIN
OctStr ::= OCTET STRING (SIZE (0..255))
OctStr ::= OCTET STRING (SIZE (0..10))
END
with TASTE_DataView;
use TASTE_DataView;
package ris is
procedure Send_To_UART (Msg: Access Taste_dataview.asn1SccOctStr) is null;
pragma Export (C, Send_To_UART, "og_RI_send_to_uart");
function Check_Queue return Boolean is (True);
pragma Export (C, Check_Queue, "og_check_queue");
end ris;
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment