Add tests for WRITEFILE.

Author: python-processing-unit

tests/cases/failing/writefile-binary-badchars.pre

@@ -0,0 +1,5 @@
+IMPORT(path)
+
+STR: p = path.TEMPFILE("prefix-writefile-bad-binary2.txt")
+
+WRITEFILE("010a0101", p, coding = "binary")

tests/cases/failing/writefile-binary-badlen.pre

@@ -0,0 +1,5 @@
+IMPORT(path)
+
+STR: p = path.TEMPFILE("prefix-writefile-bad-binary.txt")
+
+WRITEFILE("101", p, coding = "binary")

tests/cases/failing/writefile-hex-badlen.pre

@@ -0,0 +1,5 @@
+IMPORT(path)
+
+STR: p = path.TEMPFILE("prefix-writefile-bad-hex.txt")
+
+WRITEFILE("abc", p, coding = "hex")

tests/cases/failing/writefile-unsupported-coding.pre

@@ -0,0 +1,5 @@
+IMPORT(path)
+
+STR: p = path.TEMPFILE("prefix-writefile-unsupported.txt")
+
+WRITEFILE("Prefix", p, coding = "UTF-7")

tests/cases/passing/writefile-ansi.pre

@@ -0,0 +1,6 @@
+IMPORT(path)
+
+STR: p = path.TEMPFILE("prefix-writefile-ansi.txt")
+
+ASSERT(WRITEFILE("Prefix", p, coding = "ANSI"))
+ASSERT(EQ(READFILE(p, coding = "ANSI"), "Prefix"))

tests/cases/passing/writefile-binary.pre

@@ -0,0 +1,7 @@
+IMPORT(path)
+
+STR: p = path.TEMPFILE("prefix-writefile-binary.bin")
+
+ASSERT(WRITEFILE("0100000101111010", p, coding = "binary"))
+ASSERT(EQ(READFILE(p, coding = "binary"), "0100000101111010"))
+ASSERT(EQ(READFILE(p), "Az"))

tests/cases/passing/writefile-hex.pre

@@ -0,0 +1,7 @@
+IMPORT(path)
+
+STR: p = path.TEMPFILE("prefix-writefile-hex.bin")
+
+ASSERT(WRITEFILE("507265666978", p, coding = "hex"))
+ASSERT(EQ(READFILE(p), "Prefix"))
+ASSERT(EQ(READFILE(p, coding = "hexadecimal"), "507265666978"))

tests/cases/passing/writefile-utf8-bom.pre

@@ -0,0 +1,7 @@
+IMPORT(path)
+
+STR: p = path.TEMPFILE("prefix-writefile-utf8-bom.txt")
+
+ASSERT(WRITEFILE("Prefix", p, coding = "UTF-8 BOM"))
+ASSERT(EQ(READFILE(p), "Prefix"))
+ASSERT(EQ(READFILE(p, coding = "utf-8-bom"), "Prefix"))

tests/cases/passing/writefile-utf8.pre

@@ -0,0 +1,7 @@
+IMPORT(path)
+
+STR: p = path.TEMPFILE("prefix-writefile-utf8.txt")
+
+ASSERT(WRITEFILE("Prefix", p))
+ASSERT(EQ(READFILE(p), "Prefix"))
+ASSERT(EQ(READFILE(p, coding = "UTF-8"), "Prefix"))