Jocelyn Fiat
a74cda2f33
The JSON specification does not require it, but some json encoders are using utf-8 encoding for json encoding. Added related autotest case.
545 lines
13 KiB
Plaintext
545 lines
13 KiB
Plaintext
note
|
|
description: "[
|
|
Eiffel tests that can be executed by testing tool.
|
|
]"
|
|
author: "EiffelStudio test wizard"
|
|
date: "$Date$"
|
|
revision: "$Revision$"
|
|
testing: "type/manual"
|
|
|
|
class
|
|
TEST_JSON_SUITE
|
|
|
|
inherit
|
|
EQA_TEST_SET
|
|
redefine
|
|
on_prepare
|
|
end
|
|
|
|
feature {NONE} -- Events
|
|
|
|
on_prepare
|
|
-- <Precursor>
|
|
do
|
|
create file_reader
|
|
end
|
|
|
|
feature -- Tests Pass
|
|
|
|
test_json_pass1
|
|
--
|
|
local
|
|
parse_json: like new_json_parser
|
|
do
|
|
if attached json_file_from ("pass1.json") as json_file then
|
|
parse_json := new_json_parser (json_file)
|
|
json_value := parse_json.parse_json
|
|
assert ("pass1.json",parse_json.is_parsed = True)
|
|
end
|
|
end
|
|
|
|
test_json_pass2
|
|
--
|
|
local
|
|
parse_json: like new_json_parser
|
|
do
|
|
if attached json_file_from ("pass2.json") as json_file then
|
|
parse_json := new_json_parser (json_file)
|
|
json_value := parse_json.parse_json
|
|
assert ("pass2.json",parse_json.is_parsed = True)
|
|
end
|
|
end
|
|
|
|
test_json_pass3
|
|
--
|
|
local
|
|
parse_json: like new_json_parser
|
|
do
|
|
if attached json_file_from ("pass3.json") as json_file then
|
|
parse_json := new_json_parser (json_file)
|
|
json_value := parse_json.parse_json
|
|
assert ("pass3.json",parse_json.is_parsed = True)
|
|
end
|
|
end
|
|
|
|
test_json_utf_8_pass1
|
|
local
|
|
parse_json: like new_json_parser
|
|
utf: UTF_CONVERTER
|
|
s: READABLE_STRING_32
|
|
do
|
|
s := {STRING_32} "{ %"nihaoma%": %"你好吗\t?%" }"
|
|
|
|
parse_json := new_json_parser (utf.string_32_to_utf_8_string_8 (s))
|
|
json_value := parse_json.parse_json
|
|
assert ("utf8.pass1.json", parse_json.is_parsed = True)
|
|
if
|
|
attached {JSON_OBJECT} json_value as jo and then
|
|
attached {JSON_STRING} jo.item ("nihaoma") as js
|
|
then
|
|
assert ("utf8.nihaoma", js.unescaped_string_32.same_string ({STRING_32} "你好吗%T?"))
|
|
else
|
|
assert ("utf8.nihaoma", False)
|
|
end
|
|
end
|
|
|
|
feature -- Tests Failures
|
|
test_json_fail1
|
|
--
|
|
local
|
|
parse_json: like new_json_parser
|
|
do
|
|
if attached json_file_from ("fail1.json") as json_file then
|
|
parse_json := new_json_parser (json_file)
|
|
json_value := parse_json.parse_json
|
|
assert ("fail1.json",parse_json.is_parsed = False)
|
|
end
|
|
end
|
|
|
|
test_json_fail2
|
|
--
|
|
local
|
|
parse_json: like new_json_parser
|
|
do
|
|
if attached json_file_from ("fail2.json") as json_file then
|
|
parse_json := new_json_parser (json_file)
|
|
json_value := parse_json.parse_json
|
|
assert ("fail2.json",parse_json.is_parsed = False)
|
|
end
|
|
end
|
|
|
|
test_json_fail3
|
|
--
|
|
local
|
|
parse_json: like new_json_parser
|
|
do
|
|
if attached json_file_from ("fail3.json") as json_file then
|
|
parse_json := new_json_parser (json_file)
|
|
json_value := parse_json.parse_json
|
|
assert ("fail3.json",parse_json.is_parsed = False)
|
|
end
|
|
end
|
|
|
|
test_json_fail4
|
|
--
|
|
local
|
|
parse_json: like new_json_parser
|
|
do
|
|
if attached json_file_from ("fail4.json") as json_file then
|
|
parse_json := new_json_parser (json_file)
|
|
json_value := parse_json.parse_json
|
|
assert ("fail4.json",parse_json.is_parsed = False)
|
|
end
|
|
end
|
|
|
|
test_json_fail5
|
|
--
|
|
local
|
|
parse_json: like new_json_parser
|
|
do
|
|
if attached json_file_from ("fail5.json") as json_file then
|
|
parse_json := new_json_parser (json_file)
|
|
json_value := parse_json.parse_json
|
|
assert ("fail5.json",parse_json.is_parsed = False)
|
|
end
|
|
end
|
|
|
|
|
|
test_json_fail6
|
|
--
|
|
local
|
|
parse_json: like new_json_parser
|
|
do
|
|
if attached json_file_from ("fail6.json") as json_file then
|
|
parse_json := new_json_parser (json_file)
|
|
json_value := parse_json.parse_json
|
|
assert ("fail6.json",parse_json.is_parsed = False )
|
|
end
|
|
end
|
|
|
|
test_json_fail7
|
|
--
|
|
local
|
|
parse_json: like new_json_parser
|
|
do
|
|
if attached json_file_from ("fail7.json") as json_file then
|
|
parse_json := new_json_parser (json_file)
|
|
json_value := parse_json.parse_json
|
|
assert ("fail7.json",parse_json.is_parsed = False)
|
|
end
|
|
end
|
|
|
|
test_json_fail8
|
|
--
|
|
local
|
|
parse_json: like new_json_parser
|
|
do
|
|
if attached json_file_from ("fail8.json") as json_file then
|
|
parse_json := new_json_parser (json_file)
|
|
json_value := parse_json.parse_json
|
|
assert ("fail8.json",parse_json.is_parsed = False )
|
|
end
|
|
end
|
|
|
|
|
|
test_json_fail9
|
|
--
|
|
local
|
|
parse_json: like new_json_parser
|
|
do
|
|
if attached json_file_from ("fail9.json") as json_file then
|
|
parse_json := new_json_parser (json_file)
|
|
json_value := parse_json.parse_json
|
|
assert ("fail9.json",parse_json.is_parsed = False)
|
|
end
|
|
end
|
|
|
|
|
|
test_json_fail10
|
|
--
|
|
local
|
|
parse_json: like new_json_parser
|
|
do
|
|
if attached json_file_from ("fail10.json") as json_file then
|
|
parse_json := new_json_parser (json_file)
|
|
json_value := parse_json.parse_json
|
|
assert ("fail10.json",parse_json.is_parsed = False)
|
|
end
|
|
end
|
|
|
|
test_json_fail11
|
|
--
|
|
local
|
|
parse_json: like new_json_parser
|
|
do
|
|
if attached json_file_from ("fail11.json") as json_file then
|
|
parse_json := new_json_parser (json_file)
|
|
json_value := parse_json.parse_json
|
|
assert ("fail11.json",parse_json.is_parsed = False)
|
|
end
|
|
end
|
|
|
|
test_json_fail12
|
|
--
|
|
local
|
|
parse_json: like new_json_parser
|
|
do
|
|
if attached json_file_from ("fail12.json") as json_file then
|
|
parse_json := new_json_parser (json_file)
|
|
json_value := parse_json.parse_json
|
|
assert ("fail12.json",parse_json.is_parsed = False)
|
|
end
|
|
end
|
|
|
|
test_json_fail13
|
|
--
|
|
local
|
|
parse_json: like new_json_parser
|
|
do
|
|
if attached json_file_from ("fail13.json") as json_file then
|
|
parse_json := new_json_parser (json_file)
|
|
json_value := parse_json.parse_json
|
|
assert ("fail13.json",parse_json.is_parsed = False)
|
|
end
|
|
end
|
|
|
|
test_json_fail14
|
|
--
|
|
local
|
|
parse_json: like new_json_parser
|
|
do
|
|
if attached json_file_from ("fail14.json") as json_file then
|
|
parse_json := new_json_parser (json_file)
|
|
json_value := parse_json.parse_json
|
|
assert ("fail14.json",parse_json.is_parsed = False)
|
|
end
|
|
end
|
|
|
|
test_json_fail15
|
|
--
|
|
local
|
|
parse_json: like new_json_parser
|
|
do
|
|
if attached json_file_from ("fail15.json") as json_file then
|
|
parse_json := new_json_parser (json_file)
|
|
json_value := parse_json.parse_json
|
|
assert ("fail15.json",parse_json.is_parsed = False)
|
|
end
|
|
end
|
|
|
|
test_json_fail16
|
|
--
|
|
local
|
|
parse_json: like new_json_parser
|
|
do
|
|
if attached json_file_from ("fail16.json") as json_file then
|
|
parse_json := new_json_parser (json_file)
|
|
json_value := parse_json.parse_json
|
|
assert ("fail16.json",parse_json.is_parsed = False)
|
|
end
|
|
end
|
|
|
|
test_json_fail17
|
|
--
|
|
local
|
|
parse_json: like new_json_parser
|
|
do
|
|
if attached json_file_from ("fail17.json") as json_file then
|
|
parse_json := new_json_parser (json_file)
|
|
json_value := parse_json.parse_json
|
|
assert ("fail17.json",parse_json.is_parsed = False)
|
|
end
|
|
end
|
|
|
|
test_json_fail18
|
|
--
|
|
local
|
|
parse_json: like new_json_parser
|
|
do
|
|
if attached json_file_from ("fail18.json") as json_file then
|
|
parse_json := new_json_parser (json_file)
|
|
json_value := parse_json.parse_json
|
|
assert ("fail18.json",parse_json.is_parsed = True)
|
|
end
|
|
end
|
|
|
|
test_json_fail19
|
|
--
|
|
local
|
|
parse_json: like new_json_parser
|
|
do
|
|
if attached json_file_from ("fail19.json") as json_file then
|
|
parse_json := new_json_parser (json_file)
|
|
json_value := parse_json.parse_json
|
|
assert ("fail19.json",parse_json.is_parsed = False)
|
|
end
|
|
end
|
|
|
|
test_json_fail20
|
|
--
|
|
local
|
|
parse_json: like new_json_parser
|
|
do
|
|
if attached json_file_from ("fail20.json") as json_file then
|
|
parse_json := new_json_parser (json_file)
|
|
json_value := parse_json.parse_json
|
|
assert ("fail20.json",parse_json.is_parsed = False)
|
|
end
|
|
end
|
|
|
|
test_json_fail21
|
|
--
|
|
local
|
|
parse_json: like new_json_parser
|
|
do
|
|
if attached json_file_from ("fail21.json") as json_file then
|
|
parse_json := new_json_parser (json_file)
|
|
json_value := parse_json.parse_json
|
|
assert ("fail21.json",parse_json.is_parsed = False)
|
|
end
|
|
end
|
|
|
|
|
|
test_json_fail22
|
|
--
|
|
local
|
|
parse_json: like new_json_parser
|
|
do
|
|
if attached json_file_from ("fail22.json") as json_file then
|
|
parse_json := new_json_parser (json_file)
|
|
json_value := parse_json.parse_json
|
|
assert ("fail22.json",parse_json.is_parsed = False)
|
|
end
|
|
end
|
|
|
|
test_json_fail23
|
|
--
|
|
local
|
|
parse_json: like new_json_parser
|
|
do
|
|
if attached json_file_from ("fail23.json") as json_file then
|
|
parse_json := new_json_parser (json_file)
|
|
json_value := parse_json.parse_json
|
|
assert ("fail23.json",parse_json.is_parsed = False)
|
|
end
|
|
end
|
|
|
|
test_json_fail24
|
|
--
|
|
local
|
|
parse_json: like new_json_parser
|
|
do
|
|
if attached json_file_from ("fail24.json") as json_file then
|
|
parse_json := new_json_parser (json_file)
|
|
json_value := parse_json.parse_json
|
|
assert ("fail24.json",parse_json.is_parsed = False)
|
|
end
|
|
end
|
|
|
|
test_json_fail25
|
|
--
|
|
local
|
|
parse_json: like new_json_parser
|
|
do
|
|
if attached json_file_from ("fail25.json") as json_file then
|
|
parse_json := new_json_parser (json_file)
|
|
json_value := parse_json.parse_json
|
|
assert ("fail25.json",parse_json.is_parsed = False)
|
|
end
|
|
end
|
|
|
|
|
|
test_json_fail26
|
|
--
|
|
local
|
|
parse_json: like new_json_parser
|
|
do
|
|
if attached json_file_from ("fail26.json") as json_file then
|
|
parse_json := new_json_parser (json_file)
|
|
json_value := parse_json.parse_json
|
|
assert ("fail26.json",parse_json.is_parsed = False)
|
|
end
|
|
end
|
|
|
|
|
|
test_json_fail27
|
|
--
|
|
local
|
|
parse_json: like new_json_parser
|
|
do
|
|
if attached json_file_from ("fail27.json") as json_file then
|
|
parse_json := new_json_parser (json_file)
|
|
json_value := parse_json.parse_json
|
|
assert ("fail27.json",parse_json.is_parsed = False)
|
|
end
|
|
end
|
|
|
|
|
|
test_json_fail28
|
|
--
|
|
local
|
|
parse_json: like new_json_parser
|
|
do
|
|
if attached json_file_from ("fail28.json") as json_file then
|
|
parse_json := new_json_parser (json_file)
|
|
json_value := parse_json.parse_json
|
|
assert ("fail28.json",parse_json.is_parsed = False)
|
|
end
|
|
end
|
|
|
|
|
|
test_json_fail29
|
|
--
|
|
local
|
|
parse_json: like new_json_parser
|
|
do
|
|
if attached json_file_from ("fail29.json") as json_file then
|
|
parse_json := new_json_parser (json_file)
|
|
json_value := parse_json.parse_json
|
|
assert ("fail29.json",parse_json.is_parsed = False )
|
|
end
|
|
end
|
|
|
|
|
|
test_json_fail30
|
|
--
|
|
local
|
|
parse_json: like new_json_parser
|
|
do
|
|
if attached json_file_from ("fail30.json") as json_file then
|
|
parse_json := new_json_parser (json_file)
|
|
json_value := parse_json.parse_json
|
|
assert ("fail30.json",parse_json.is_parsed = False)
|
|
end
|
|
end
|
|
|
|
test_json_fail31
|
|
--
|
|
local
|
|
parse_json: like new_json_parser
|
|
do
|
|
if attached json_file_from ("fail31.json") as json_file then
|
|
parse_json := new_json_parser (json_file)
|
|
json_value := parse_json.parse_json
|
|
assert ("fail31.json",parse_json.is_parsed = False)
|
|
end
|
|
end
|
|
|
|
test_json_fail32
|
|
--
|
|
local
|
|
parse_json: like new_json_parser
|
|
do
|
|
if attached json_file_from ("fail32.json") as json_file then
|
|
parse_json := new_json_parser (json_file)
|
|
json_value := parse_json.parse_json
|
|
assert ("fail32.json",parse_json.is_parsed = False)
|
|
end
|
|
end
|
|
|
|
test_json_fail33
|
|
--
|
|
local
|
|
parse_json: like new_json_parser
|
|
do
|
|
if attached json_file_from ("fail33.json") as json_file then
|
|
parse_json := new_json_parser (json_file)
|
|
json_value := parse_json.parse_json
|
|
assert ("fail33.json",parse_json.is_parsed = False)
|
|
end
|
|
end
|
|
|
|
feature -- JSON_FROM_FILE
|
|
|
|
file_reader: JSON_FILE_READER
|
|
|
|
json_value: detachable JSON_VALUE
|
|
|
|
json_file_from (fn: STRING): detachable STRING
|
|
local
|
|
f: RAW_FILE
|
|
l_path: STRING
|
|
test_dir: STRING
|
|
i: INTEGER
|
|
do
|
|
test_dir := (create {EXECUTION_ENVIRONMENT}).current_working_directory
|
|
test_dir.append_character ((create {OPERATING_ENVIRONMENT}).directory_separator)
|
|
|
|
l_path := test_dir + fn
|
|
create f.make_with_name (l_path)
|
|
if f.exists then
|
|
-- Found json file
|
|
else
|
|
-- before EiffelStudio 7.3 , the current dir of autotest execution was not the parent dir of ecf but something like
|
|
-- ..json\test\autotest\test_suite\EIFGENs\test_suite\Testing\execution\TEST_JSON_SUITE.test_json_fail1\..\..\..\..\..\fail1.json
|
|
from
|
|
i := 5
|
|
until
|
|
i = 0
|
|
loop
|
|
test_dir.append_character ('.')
|
|
test_dir.append_character ('.')
|
|
test_dir.append_character ((create {OPERATING_ENVIRONMENT}).directory_separator)
|
|
i := i - 1
|
|
end
|
|
l_path := test_dir + fn
|
|
end
|
|
create f.make_with_name (l_path)
|
|
if f.exists then
|
|
Result := file_reader.read_json_from (l_path)
|
|
end
|
|
assert ("File contains json data", Result /= Void)
|
|
end
|
|
|
|
new_json_parser (a_string: STRING): JSON_PARSER
|
|
do
|
|
create Result.make_parser (a_string)
|
|
end
|
|
|
|
|
|
invariant
|
|
file_reader /= Void
|
|
|
|
end
|
|
|