From 29424c7ce25ee43f0c086709d7d8dd54ef17017f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Mon, 6 Oct 2025 20:09:51 +0200
Subject: (test) Test: basic object format

---
 storage.et | 67 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++------
 1 file changed, 61 insertions(+), 6 deletions(-)

diff --git a/storage.et b/storage.et
index 2230eac..9bbbe6b 100644
--- a/storage.et
+++ b/storage.et
@@ -1,3 +1,5 @@
+import common
+
 test Storage:
 	spawn as p1
 
@@ -432,8 +434,6 @@ test SharedStateWatcher:
 
 
 test LocalStateKeepUnknown:
-	let refpat = /blake2#[0-9a-f]*/
-
 	spawn as p
 	with p:
 		send "create-identity Device"
@@ -480,8 +480,6 @@ test LocalStateKeepUnknown:
 
 
 test UnknownObjectType:
-	let refpat = /blake2#[0-9a-f]*/
-
 	spawn as p
 	spawn as p2 on p.node
 
@@ -502,8 +500,6 @@ test UnknownObjectType:
 
 
 test UnknownRecordItemType:
-	let refpat = /blake2#[0-9a-f]*/
-
 	spawn as p
 	spawn as p2 on p.node
 
@@ -521,3 +517,62 @@ test UnknownRecordItemType:
 			local:
 				expect /load-(.*)/ capture done
 				guard (done == "done")
+
+
+test ObjectFormat:
+	spawn as p
+	with p:
+		# Empty blob
+		local:
+			send "store-raw EOF"
+			send "blob 0\n"
+			send "EOF"
+			expect /store-done ($refpat)/ capture r
+
+			send "load-type $r"
+			expect /load-type (.*)/ capture type
+			guard (type == "blob")
+
+		# Small blob
+		local:
+			send "store-raw EOF"
+			send "blob 2\nab"
+			send "EOF"
+			expect /store-done ($refpat)/ capture r
+
+			send "load-type $r"
+			expect /load-type (.*)/ capture type
+			guard (type == "blob")
+
+		# Empty record
+		local:
+			send "store-raw EOF"
+			send "rec 0\n"
+			send "EOF"
+			expect /store-done ($refpat)/ capture r
+
+			send "load-type $r"
+			expect /load-type (.*)/ capture type
+			guard (type == "rec")
+
+		# Small record
+		local:
+			send "store-raw EOF"
+			send "rec 8\nnum:n 1\n"
+			send "EOF"
+			expect /store-done ($refpat)/ capture r
+
+			send "load-type $r"
+			expect /load-type (.*)/ capture type
+			guard (type == "rec")
+
+		# Empty unknown
+		local:
+			send "store-raw EOF"
+			send "test-unknown 0\n"
+			send "EOF"
+			expect /store-done ($refpat)/ capture r
+
+			send "load-type $r"
+			expect /load-type (.*)/ capture type
+			guard (type == "unknown test-unknown")
-- 
cgit v1.2.3