(test) Ondemand object type and parsing

1 files changed, 14 insertions, 0 deletions

diff --git a/storage.et b/storage.et
index 1510c38..845971b 100644
--- a/storage.et
+++ b/storage.et
@@ -544,12 +544,15 @@ test ObjectFormat:
 			expect /load-type (.*)/ capture type
 			guard (type == "blob")
 
+		let empty_rec_ref = "blake2#6027623e8817cd2d214cc754caaa71f50190a1e5feeb9d9107c8aeabb189fbb2"
+
 		# Empty record
 		local:
 			send "store-raw EOF"
 			send "rec 0\n"
 			send "EOF"
 			expect /store-done ($refpat)/ capture r
+			guard (r == empty_rec_ref)
 
 			send "load-type $r"
 			expect /load-type (.*)/ capture type
@@ -609,3 +612,14 @@ test ObjectFormat:
 			send "load-type $r"
 			expect /load-type (.*)/ capture type
 			guard (type == "unknown test-unknown")
+
+		# Ondemand object
+		local:
+			send "store-raw EOF"
+			send "ondemand 74\n6\n$empty_rec_ref\n"
+			send "EOF"
+			expect /store-done ($refpat)/ capture r
+
+			send "load-type $r"
+			expect /load-type (.*)/ capture type
+			guard (type == "ondemand")