TEST: using just codecs instead of longer system/codecs

Author: Oldes

src/tests/units/codecs-test.r3

@@ -12,27 +12,27 @@ Rebol [
 	--test-- "encoding?"
 		--assert 'text = encoding? #{}
 		--assert 'text = encoding? #{6162}
-		--assert do-codec system/codecs/text/entry 'identify #{}
+		--assert do-codec codecs/text/entry 'identify #{}
 		if all [
-			find system/codecs 'png
-			select system/codecs/png 'entry ; original native codec
+			find codecs 'png
+			select codecs/png 'entry ; original native codec
 		][
-			--assert not do-codec system/codecs/png/entry 'identify #{01}
+			--assert not do-codec codecs/png/entry 'identify #{01}
 		]
 		if all [
-			find system/codecs 'jpeg
-			select system/codecs/jpeg 'entry ; original native codec
+			find codecs 'jpeg
+			select codecs/jpeg 'entry ; original native codec
 		][
-			--assert not do-codec system/codecs/jpeg/entry 'identify #{01}
-			--assert not do-codec system/codecs/jpeg/entry 'identify #{010203}
+			--assert not do-codec codecs/jpeg/entry 'identify #{01}
+			--assert not do-codec codecs/jpeg/entry 'identify #{010203}
 			bin: insert/dup make binary! 126 #{00} 126
-			--assert not do-codec system/codecs/jpeg/entry 'identify bin
+			--assert not do-codec codecs/jpeg/entry 'identify bin
 		]
 		if all [
-			find system/codecs 'gif
-			select system/codecs/gif 'entry ; original native codec
+			find codecs 'gif
+			select codecs/gif 'entry ; original native codec
 		][
-			--assert not do-codec system/codecs/gif/entry 'identify #{01}
+			--assert not do-codec codecs/gif/entry 'identify #{01}
 		]
 ===end-group===
 
@@ -67,8 +67,8 @@ Rebol [
 		--assert error? try [save %temp.jpg #{00}]
 ===end-group===
 
-if find system/codecs 'wav [
-	system/codecs/wav/verbose: 3
+if find codecs 'wav [
+	codecs/wav/verbose: 3
 	===start-group=== "WAV codec"
 
 		--test-- "Load WAV file"
@@ -87,11 +87,11 @@ if find system/codecs 'wav [
 			bin: none
 
 	===end-group===
-	system/codecs/wav/verbose: 0
+	codecs/wav/verbose: 0
 ]
 
-if find system/codecs 'der [
-	system/codecs/der/verbose: 2
+if find codecs 'der [
+	codecs/der/verbose: 2
 	===start-group=== "DER codec"
 
 		--test-- "Load DER file"
@@ -102,11 +102,11 @@ if find system/codecs 'der [
 			--assert block? d: decode 'DER c
 
 	===end-group===
-	system/codecs/der/verbose: 0
+	codecs/der/verbose: 0
 ]
 
-if find system/codecs 'crt [
-	system/codecs/crt/verbose: 3
+if find codecs 'crt [
+	codecs/crt/verbose: 3
 	===start-group=== "CRT codec"
 
 		--test-- "Load CRT file"
@@ -115,11 +115,11 @@ if find system/codecs 'crt [
 			--assert block? try [key: cert/public-key/rsaEncryption]
 			--assert #{010001} = try [key/2]
 	===end-group===
-	system/codecs/crt/verbose: 0
+	codecs/crt/verbose: 0
 ]
 
-if find system/codecs 'swf [
-	system/codecs/swf/verbose: 1
+if find codecs 'swf [
+	codecs/swf/verbose: 1
 	===start-group=== "SWF codec"
 
 		--test-- "Load SWF file"
@@ -128,17 +128,17 @@ if find system/codecs 'swf [
 			--assert swf1/tags = swf2/tags
 			--assert swf1/header/frames = 25
 
-		system/codecs/swf/verbose: 3
+		codecs/swf/verbose: 3
 		--test-- "Load SWF file with decoding tags"
 			--assert not error? try [swf1: load %units/files/test3.swf]
 			--assert not error? try [swf2: load %units/files/test4-as2btn.swf]
 
 	===end-group===
-	system/codecs/swf/verbose: 0
+	codecs/swf/verbose: 0
 ]
 
-if find system/codecs 'zip [
-	system/codecs/zip/verbose: 3
+if find codecs 'zip [
+	codecs/zip/verbose: 3
 	===start-group=== "ZIP codec"
 
 		--test-- "Load ZIP file"
@@ -147,36 +147,36 @@ if find system/codecs 'zip [
 			--assert block? load %units/files/test-deflate.zip
 
 		--test-- "Decode ZIP using the codec directly"
-			--assert block? data: system/codecs/zip/decode/only %units/files/test.aar [%classes.jar]
+			--assert block? data: codecs/zip/decode/only %units/files/test.aar [%classes.jar]
 			--assert data/2/2 = 646121705
-			--assert block? system/codecs/zip/decode data/2/3
+			--assert block? codecs/zip/decode data/2/3
 
 	===end-group===
-	system/codecs/zip/verbose: 1
+	codecs/zip/verbose: 1
 ]
 
-if find system/codecs 'tar [
-	system/codecs/zip/verbose: 3
+if find codecs 'tar [
+	codecs/zip/verbose: 3
 	===start-group=== "TAR codec"
 
 		--test-- "Load TAR file"
 			--assert block? load %units/files/test.tar
 
 		--test-- "Decode TAR using the codec directly"
-			tar-decode: :system/codecs/tar/decode
+			tar-decode: :codecs/tar/decode
 			--assert block? data: tar-decode/only %units/files/test.tar %test.txt
 			--assert data/2/1 = #{7465737474657374}
 
 	===end-group===
-	system/codecs/tar/verbose: 1
+	codecs/tar/verbose: 1
 ]
 
-if find system/codecs 'unixtime [
+if find codecs 'unixtime [
 	===start-group=== "unixtime codec"
 		date: 18-Sep-2019/8:52:31+2:00
 		--test-- "encode 32bit unixtime"
 			--assert 1568789551  = encode 'unixtime date
-			--assert 1568789551  = system/codecs/unixtime/encode date
+			--assert 1568789551  = codecs/unixtime/encode date
 			--assert  "5D81D42F" = encode/as 'unixtime date string!
 			--assert #{5D81D42F} = encode/as 'unixtime date binary!
 			--assert 1568789551  = encode/as 'unixtime date integer!
@@ -186,7 +186,7 @@ if find system/codecs 'unixtime [
 			--assert date = decode 'unixtime 1568789551
 			--assert date = decode 'unixtime  "5D81D42F"
 			--assert date = decode 'unixtime #{5D81D42F}
-			--assert date = system/codecs/unixtime/decode 1568789551
+			--assert date = codecs/unixtime/decode 1568789551
 
 		date: 1-1-2056/1:2:3
 		--test-- "encode 64bit unixtime"

src/tests/units/image-test.r3

@@ -114,14 +114,14 @@ Rebol [
 ===end-group===
 
 ===start-group=== "Save/load image"
-	if find words-of system/codecs 'png [
+	if find codecs 'png [
 		--test-- "save/load PNG"
 			img1: make image! [2x2 255.0.0.10]
 			save %units/files/test.png img1
 			img2: load %units/files/test.png
 			--assert #{FF00000AFF00000AFF00000AFF00000A} = to binary! img2
 	]
-	if find words-of system/codecs 'bmp [
+	if find codecs 'bmp [
 		--test-- "save/load BMP"
 			img1: make image! [2x2 255.0.0.10]
 			save %units/files/test.bmp img1