FIX: simple text (and empty text) should be identified as TEXT when using ENCODING? function.

Note: MARKUP type is now never identified as it would require more advanced identification.

Author: Oldes

src/core/b-init.c

@@ -685,6 +685,7 @@ extern const REBYTE Str_Banner[];
 	codi->error = 0;
 
 	if (codi->action == CODI_IDENTIFY) {
+		codi->error = 1;   // never identified... would require markup validator
 		return CODI_CHECK; // error code is inverted result
 	}
 

src/core/n-system.c

@@ -407,6 +407,7 @@ char *evoke_help = "Evoke values:\n"
 	if (VAL_HANDLE_TYPE(hnd) != SYM_CODEC) Trap0(RE_INVALID_HANDLE);
 
 	CLEAR(&codi, sizeof(codi));
+	codi.action = CODI_DECODE;
 
 	val = D_ARG(3);
 
@@ -416,7 +417,6 @@ char *evoke_help = "Evoke values:\n"
 		codi.action = CODI_IDENTIFY;
 	case SYM_DECODE:
 		if (!IS_BINARY(val)) Trap1(RE_INVALID_ARG, val);
-		codi.action = CODI_DECODE;
 		codi.data = VAL_BIN_DATA(D_ARG(3));
 		codi.len  = VAL_LEN(D_ARG(3));
 		break;

src/mezz/codec-gzip.r

@@ -20,6 +20,7 @@ register-codec [
 	]
 
 	identify: function [data [binary!]][
+		if 10 > length? data [return none]
 		if verbose > 0 [
 			print ["^[[1;32mDecode GZIP data^[[m (^[[1m" length? data "^[[mbytes )"]
 		]

src/tests/units/codecs-test.r3

@@ -8,6 +8,12 @@ Rebol [
 
 ~~~start-file~~~ "Codecs"
 
+===start-group=== "Codec's identify"
+	--test-- "encoding?"
+		--assert 'text = encoding? #{}
+		--assert 'text = encoding? #{6162}
+===end-group===
+
 if find system/codecs 'wav [
 	system/codecs/wav/verbose: 3
 	===start-group=== "WAV codec"