Jocelyn Fiat
19dbbf89e7
Implemented escaping of slash '/' only in case of '</' to avoid potential issue with javascript and </script> Many feature renaming to match Eiffel style and naming convention, kept previous feature as obsolete. Restructured the library to make easy extraction of "converter" classes if needed in the future. Updated part of the code to use new feature names.
536 lines
12 KiB
Plaintext
536 lines
12 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)
|
|
parse_json.parse_content
|
|
assert ("pass1.json", parse_json.is_valid)
|
|
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)
|
|
parse_json.parse_content
|
|
assert ("pass2.json",parse_json.is_valid)
|
|
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)
|
|
parse_json.parse_content
|
|
assert ("pass3.json",parse_json.is_valid)
|
|
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))
|
|
parse_json.parse_content
|
|
assert ("utf8.pass1.json", parse_json.is_valid)
|
|
if attached {JSON_OBJECT} parse_json.parsed_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)
|
|
parse_json.parse_content
|
|
assert ("fail1.json", parse_json.is_valid = 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)
|
|
parse_json.parse_content
|
|
assert ("fail2.json",parse_json.is_valid = 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)
|
|
parse_json.parse_content
|
|
assert ("fail3.json",parse_json.is_valid = 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)
|
|
parse_json.parse_content
|
|
assert ("fail4.json",parse_json.is_valid = 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)
|
|
parse_json.parse_content
|
|
assert ("fail5.json",parse_json.is_valid = 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)
|
|
parse_json.parse_content
|
|
assert ("fail6.json",parse_json.is_valid = 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)
|
|
parse_json.parse_content
|
|
assert ("fail7.json",parse_json.is_valid = 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)
|
|
parse_json.parse_content
|
|
assert ("fail8.json",parse_json.is_valid = 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)
|
|
parse_json.parse_content
|
|
assert ("fail9.json",parse_json.is_valid = 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)
|
|
parse_json.parse_content
|
|
assert ("fail10.json",parse_json.is_valid = 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)
|
|
parse_json.parse_content
|
|
assert ("fail11.json",parse_json.is_valid = 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)
|
|
parse_json.parse_content
|
|
assert ("fail12.json",parse_json.is_valid = 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)
|
|
parse_json.parse_content
|
|
assert ("fail13.json",parse_json.is_valid = 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)
|
|
parse_json.parse_content
|
|
assert ("fail14.json",parse_json.is_valid = 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)
|
|
parse_json.parse_content
|
|
assert ("fail15.json",parse_json.is_valid = 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)
|
|
parse_json.parse_content
|
|
assert ("fail16.json",parse_json.is_valid = 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)
|
|
parse_json.parse_content
|
|
assert ("fail17.json",parse_json.is_valid = 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)
|
|
parse_json.parse_content
|
|
assert ("fail18.json",parse_json.is_valid = 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)
|
|
parse_json.parse_content
|
|
assert ("fail19.json",parse_json.is_valid = 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)
|
|
parse_json.parse_content
|
|
assert ("fail20.json",parse_json.is_valid = 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)
|
|
parse_json.parse_content
|
|
assert ("fail21.json",parse_json.is_valid = 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)
|
|
parse_json.parse_content
|
|
assert ("fail22.json",parse_json.is_valid = 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)
|
|
parse_json.parse_content
|
|
assert ("fail23.json",parse_json.is_valid = 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)
|
|
parse_json.parse_content
|
|
assert ("fail24.json",parse_json.is_valid = 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)
|
|
parse_json.parse_content
|
|
assert ("fail25.json",parse_json.is_valid = 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)
|
|
parse_json.parse_content
|
|
assert ("fail26.json",parse_json.is_valid = 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)
|
|
parse_json.parse_content
|
|
assert ("fail27.json",parse_json.is_valid = 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)
|
|
parse_json.parse_content
|
|
assert ("fail28.json",parse_json.is_valid = 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)
|
|
parse_json.parse_content
|
|
assert ("fail29.json",parse_json.is_valid = 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)
|
|
parse_json.parse_content
|
|
assert ("fail30.json",parse_json.is_valid = 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)
|
|
parse_json.parse_content
|
|
assert ("fail31.json",parse_json.is_valid = 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)
|
|
parse_json.parse_content
|
|
assert ("fail32.json",parse_json.is_valid = 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)
|
|
parse_json.parse_content
|
|
assert ("fail33.json",parse_json.is_valid = False)
|
|
end
|
|
end
|
|
|
|
feature -- JSON_FROM_FILE
|
|
|
|
file_reader: JSON_FILE_READER
|
|
|
|
json_file_from (fn: READABLE_STRING_GENERAL): detachable STRING
|
|
local
|
|
f: RAW_FILE
|
|
l_path: PATH
|
|
test_dir: PATH
|
|
i: INTEGER
|
|
do
|
|
test_dir := (create {EXECUTION_ENVIRONMENT}).current_working_path
|
|
l_path := test_dir.extended (fn)
|
|
create f.make_with_path (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 := test_dir.extended ("..")
|
|
i := i - 1
|
|
end
|
|
l_path := test_dir.extended (fn)
|
|
end
|
|
create f.make_with_path (l_path)
|
|
if f.exists then
|
|
Result := file_reader.read_json_from (l_path.name)
|
|
end
|
|
assert ("File contains json data", Result /= Void)
|
|
end
|
|
|
|
|
|
new_json_parser (a_string: STRING): JSON_PARSER
|
|
do
|
|
create Result.make_with_string (a_string)
|
|
end
|
|
|
|
invariant
|
|
file_reader /= Void
|
|
|
|
end
|
|
|
|
|