Update tests

Author: Daniel-Cortez

source/compiler/tests/__pragma.meta

@@ -5,8 +5,15 @@ __pragma.pwn(6) : error 001: expected token: "-identifier-", but found "const"
 __pragma.pwn(10) : error 001: expected token: "-identifier-", but found "__pragma"
 __pragma.pwn(36) : warning 234: function is deprecated (symbol "Func") - use OtherFunc() instead
 __pragma.pwn(40) : warning 234: function is deprecated (symbol "NakedFunc") - use NakedFunc2() instead
+__pragma.pwn(43) : warning 207: unknown #pragma
+__pragma.pwn(44) : warning 207: unknown #pragma
+__pragma.pwn(48) : warning 207: unknown #pragma
+__pragma.pwn(62) : warning 200: symbol "long_name2_zzzzzzzz_zzzzzzzzz_z" is truncated to 31 characters
+__pragma.pwn(66) : warning 207: unknown #pragma
+__pragma.pwn(67) : warning 207: unknown #pragma
+__pragma.pwn(68) : warning 207: unknown #pragma
 __pragma.pwn(33) : warning 203: symbol is never used: "f"
 __pragma.pwn(29) : warning 204: symbol is assigned a value that is never used: "e"
-__pragma.pwn(29 -- 42) : warning 203: symbol is never used: "operator~(Tag:)"
+__pragma.pwn(29 -- 70) : warning 203: symbol is never used: "operator~(Tag:)"
 """
 }

source/compiler/tests/__pragma.pwn

@@ -37,5 +37,33 @@ main()
 
 	// NakedFunc() and NakedFunc2() are marked as "naked", so there should be
 	// no warnings about them having to return a value.
-	return NakedFunc(), NakedFunc2();
+	new __pragma("unused") retval = (NakedFunc(), NakedFunc2());
+
+	// Make sure the compiler doesn't crash on an empty `__pragma`.
+	__pragma(""); // warning 207: unknown #pragma
+	__pragma(" "); // warning 207: unknown #pragma
+
+	// `#pragma` warns about extra characters after the option name,
+	// so `__pragma` should do the same.
+	__pragma("unused b"); // warning 207: unknown #pragma
+	// But it shouldn't warn if there are only trailing whitespaces after the name.
+	__pragma("naked   ");
+
+	// Warning 200 is going to be temporarily disabled, so the compiler
+	// shouldn't warn about the first variable having too long name.
+	// Also the parameter strings contain excess whitespaces, the compiler
+	// should ignore them.
+	__pragma("warning push ", "warning disable 200  ");
+	new
+		long_name_zzzzzzzzz_zzzzzzzzz_zzzzzzzzz_ __pragma("unused"),
+		// `__pragma("warning")` takes effect immediately, so the compiler
+		// should warn that the name of the next variable is too long.
+		// warning 200: symbol "long_name2_zzzzzzzz_zzzzzzzzz_z" is truncated to 31 characters
+		__pragma("warning enable 200   ", "unused") long_name2_zzzzzzzz_zzzzzzzzz_zzzzzzzzz_ __pragma("unused");
+	__pragma("warning pop    ");
+
+	// Warn if the parameter of "warning disable" is not a number.
+	__pragma("warning enable    "); // warning 207: unknown #pragma
+	__pragma("warning enable  a "); // warning 207: unknown #pragma
+	__pragma("warning enable  - "); // warning 207: unknown #pragma
 }