peter/IBAFLang
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

init commit again

Browse Source
This commit is contained in:
Peter
2023-11-01 09:29:33 +01:00
parent 448147e7da
commit d6c745207b
250 changed files with 15552 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
IBAF-cbs/Funcons-beta/Values/Composite/Maps/tests/map-delete.config Normal file
View File

@@ -0,0 +1,29 @@
general {
funcon-term:
initialise-giving finalise-failing
sequential (
print map-delete({1 |-> 2},{}),
print map-delete({1 |-> 2, 3 |-> 4},{}),
print map-delete(map(),{1}),
print map-delete({1 |-> 2},{1}),
print map-delete({1 |-> 2, 3 |-> 4},{1}),
print map-delete({1 |-> 2, 3 |-> 4},{3}),
print map-delete({1 |-> 2, 3 |-> 4},{1,3}),
print "OK"
)
;
}
tests {
result-term: null-value;
standard-out: [
{1 |-> 2},
{1 |-> 2, 3 |-> 4},
map(),
map(),
{3 |-> 4},
{1 |-> 2},
map(),
"OK"
];
}

16
IBAF-cbs/Funcons-beta/Values/Composite/Maps/tests/map-domain.config Normal file
View File

@@ -0,0 +1,16 @@
general {
funcon-term:
initialise-giving finalise-failing
sequential (
print map-domain map(),
print map-domain{1|->2},
print map-domain{1|->2,3|->4},
print map-domain{1|->2,3|->( )}
)
;
}
tests {
result-term: null;
standard-out: [{}, {1}, {1,3}, {1,3}];
}

15
IBAF-cbs/Funcons-beta/Values/Composite/Maps/tests/map-elements.config Normal file
View File

@@ -0,0 +1,15 @@
general {
funcon-term:
initialise-giving finalise-failing
sequential (
print map-elements map( ),
print map-elements {1|->2},
print map-elements {3|->4,5|->6}
)
;
}
tests {
result-term: null-value;
standard-out: [tuple(1, 2), tuple(3, 4), tuple(5, 6) ];
}

22
IBAF-cbs/Funcons-beta/Values/Composite/Maps/tests/map-lookup.config Normal file
View File

@@ -0,0 +1,22 @@
general {
funcon-term:
initialise-giving finalise-failing
sequential (
print map-lookup({1|->2}, 1),
print map-lookup({1|->2,3|->4}, 1),
print map-lookup({1|->2,3|->4}, 3),
else(
effect checked map-lookup(map(), 1),
effect checked map-lookup({1|->2}, 2),
effect checked map-lookup({1|->2,3|->4}, 2),
effect checked map-lookup({1|->2,3|->4}, 5),
print "OK"
)
)
;
}
tests {
result-term: null-value;
standard-out: [2, 2, 4, "OK"];
}

31
IBAF-cbs/Funcons-beta/Values/Composite/Maps/tests/map-override.config Normal file
View File

@@ -0,0 +1,31 @@
general {
funcon-term:
initialise-giving finalise-failing
sequential (
print map-override({1 |-> 2},map()),
print map-override(map(),{1 |-> 2}),
print map-override({1 |-> 2},{1 |-> 2}),
print map-override({1 |-> 2},{3 |-> 4}),
print map-override({1 |-> 2},{1 |-> 4}),
print map-override({1 |-> 2},{1 |-> 4},{1 |-> 2}),
print map-override({1 |-> 2}),
print map-override(map()),
print map-override()
)
;
}
tests {
result-term: null-value;
standard-out: [
{1 |-> 2},
{1 |-> 2},
{1 |-> 2},
{1 |-> 2, 3 |-> 4},
{1 |-> 2},
{1 |-> 2},
{1 |-> 2},
map(),
map()
];
}

31
IBAF-cbs/Funcons-beta/Values/Composite/Maps/tests/map-unite.config Normal file
View File

@@ -0,0 +1,31 @@
general {
funcon-term:
initialise-giving finalise-failing
sequential (
print map-unite({1 |-> 2},map()),
print map-unite(map(),{1 |-> 2}),
print map-unite({1 |-> 2},{3 |-> 4}),
print map-unite({1 |-> 2}),
print map-unite(map()),
print map-unite(),
else(
effect checked map-unite({1 |-> 2},{1 |-> 4}),
effect checked map-unite({1 |-> 2, 3 |-> 4},{5 |-> 6, 1 |-> 7}),
print "OK"
)
)
;
}
tests {
result-term: null-value;
standard-out: [
{1 |-> 2},
{1 |-> 2},
{1 |-> 2, 3 |-> 4},
{1 |-> 2},
map(),
map(),
"OK"
];
}

23
IBAF-cbs/Funcons-beta/Values/Composite/Maps/tests/map.config Normal file
View File

@@ -0,0 +1,23 @@
general {
funcon-term:
initialise-giving finalise-failing
sequential (
print map(),
print {1 |-> 2},
print {1 |-> 2, 3 |-> 4},
print {1 |-> 2, 3 |-> ()},
print cast({1 |-> 2}, maps(integers,integers))
)
;
}
tests {
result-term: null-value;
standard-out: [
map(),
{1 |-> 2},
{1 |-> 2, 3 |-> 4},
{1 |-> 2, 3 |-> ()},
{1 |-> 2}
];
}