diff options
author | Jed Barber <jjbarber@y7mail.com> | 2020-05-20 01:21:51 +1000 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2020-05-20 01:21:51 +1000 |
commit | d07979218ea80c58e64148d9638ed3e6195ff6ed (patch) | |
tree | def34d24f16923e8a05fc652e847240d8eb16865 /test/graph_tests.ads | |
parent | 65c9afbdc7daf588aaff505b2c148c4218f231d5 (diff) |
Initial unit tests
Diffstat (limited to 'test/graph_tests.ads')
-rw-r--r-- | test/graph_tests.ads | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/test/graph_tests.ads b/test/graph_tests.ads new file mode 100644 index 0000000..18ea321 --- /dev/null +++ b/test/graph_tests.ads @@ -0,0 +1,30 @@ + + +with + + Ada.Strings.Unbounded, + Directed_Graphs; + + +package Graph_Tests is + + + package SU renames Ada.Strings.Unbounded; + + + type Node_ID is new Positive; + type Edge_ID is new Positive; + type Node_Label is new SU.Unbounded_String; + type Edge_Label is new SU.Unbounded_String; + + + package Graphs is new Directed_Graphs + (Node_ID_Type => Node_ID, + Edge_ID_Type => Edge_ID, + Node_Label_Type => Node_Label, + Edge_Label_Type => Edge_Label); + + +end Graph_Tests; + + |