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

17
IBAF-cbs/Funcons-beta/Values/Composite/Objects/tests/object-feature-map.config Normal file
View File

@@ -0,0 +1,17 @@
general {
funcon-term:
initialise-giving initialise-generating finalise-failing
sequential (
print object-feature-map object(fresh-atom,"A",map()),
print object-feature-map object(fresh-atom,"B",map(),
object(fresh-atom,"C",map()))
)
;
}
tests {
result-term: null-value;
standard-out: [
map(), map()
];
}

17
IBAF-cbs/Funcons-beta/Values/Composite/Objects/tests/object-identity.config Normal file
View File

@@ -0,0 +1,17 @@
general {
funcon-term:
initialise-giving initialise-generating finalise-failing
sequential (
print object-identity object(fresh-atom,"A",map()),
print object-identity object(fresh-atom,"B",map(),
object(fresh-atom,"C",map()))
)
;
}
tests {
result-term: null-value;
standard-out: [
atom("@1"), atom("@2")
];
}

28
IBAF-cbs/Funcons-beta/Values/Composite/Objects/tests/object-single-inheritance-feature-map.config Normal file
View File

@@ -0,0 +1,28 @@
general {
funcon-term:
initialise-giving initialise-generating finalise-failing
sequential (
print object-single-inheritance-feature-map
object(fresh-atom,"A",{"a"|->"A"}),
print object-single-inheritance-feature-map
object(fresh-atom,"B",{"a"|->"B"},
object(fresh-atom,"C",{"a"|->"C"})),
else(
is-value object-single-inheritance-feature-map
object(fresh-atom,"D",map(),
object(fresh-atom,"E",map(),
object(fresh-atom,"F",map())),
object(fresh-atom,"G",map())),
print "OK")
)
;
}
tests {
result-term: null-value;
standard-out: [
{"a"|->"A"},
{"a"|->"B"},
"OK"
];
}

27
IBAF-cbs/Funcons-beta/Values/Composite/Objects/tests/object-subobject-sequence.config Normal file
View File

@@ -0,0 +1,27 @@
general {
funcon-term:
initialise-giving initialise-generating finalise-failing
sequential (
print [object-subobject-sequence
object(fresh-atom,"A",map())],
print [object-subobject-sequence
object(fresh-atom,"B",map(),
object(fresh-atom,"C",map()))],
print [object-subobject-sequence
object(fresh-atom,"D",map(),
object(fresh-atom,"E",map(),
object(fresh-atom,"F",map())),
object(fresh-atom,"G",map()))]
)
;
}
tests {
result-term: null-value;
standard-out: [
[],
[object(atom("@3"),"C",map-empty)],
[object(atom("@5"),"E",map-empty,object(atom("@6"),"F",map-empty)),
object(atom("@7"),"G",map-empty)]
];
}

32
IBAF-cbs/Funcons-beta/Values/Composite/Objects/tests/object-tree.config Normal file
View File

@@ -0,0 +1,32 @@
general {
funcon-term:
initialise-giving initialise-generating finalise-failing
sequential (
print object-tree
object(fresh-atom,"A",map()),
print object-tree
object(fresh-atom,"B",map(),
object(fresh-atom,"C",map())),
print object-tree
object(fresh-atom,"D",map(),
object(fresh-atom,"E",map(),
object(fresh-atom,"F",map())),
object(fresh-atom,"G",map()))
)
;
}
tests {
result-term: null-value;
standard-out: [
tree (object(atom("@1"),"A",map-empty)),
tree (object(atom("@2"),"B",map-empty,object(atom("@3"),"C",map-empty)),
tree (object(atom("@3"),"C",map-empty))),
tree (object(atom("@4"),"D",map-empty,
object(atom("@5"),"E",map-empty,object(atom("@6"),"F",map-empty)),
object(atom("@7"),"G",map-empty)),
tree (object(atom("@5"),"E",map-empty,object(atom("@6"),"F",map-empty)),
tree (object(atom("@6"),"F",map-empty))),
tree (object(atom("@7"),"G",map-empty)))
];
}

25
IBAF-cbs/Funcons-beta/Values/Composite/Objects/tests/object.config Normal file
View File

@@ -0,0 +1,25 @@
general {
funcon-term:
initialise-giving initialise-generating finalise-failing
sequential (
print object(fresh-atom,"A",map()),
print object(fresh-atom,"B",map(),
object(fresh-atom,"C",map())),
print object(fresh-atom,"D",map(),
object(fresh-atom,"E",map(),
object(fresh-atom,"F",map())),
object(fresh-atom,"G",map()))
)
;
}
tests {
result-term: null-value;
standard-out: [
object(atom("@1"),"A",map-empty),
object(atom("@2"),"B",map-empty,object(atom("@3"),"C",map-empty)),
object(atom("@4"),"D",map-empty,
object(atom("@5"),"E",map-empty,object(atom("@6"),"F",map-empty)),
object(atom("@7"),"G",map-empty))
];
}