Files
EWF/test/autotest/test_suite/test_json_suite.e
jvelilla f4c472cb9f Updated eJSON to use Eiffel 6.8 version.
Basically the changes are:

Replace ? by detachable
indexing by note
removing `is' from features, and in some places replaced by =
In the ecf now we need to include every gobo library, because the gobo.ecf, exclude libraries that are needed.
TODO: the test-suite is not void-safety.
2011-07-07 12:03:25 +00:00

396 lines
11 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
--
do
json_file:=file_reader.read_json_from (test_dir + "pass1.json")
create parse_json.make_parser (json_file)
json_value := parse_json.parse_json
assert ("pass1.json",parse_json.is_parsed = True)
end
test_json_pass2
--
do
json_file:=file_reader.read_json_from (test_dir +"pass2.json")
create parse_json.make_parser (json_file)
json_value := parse_json.parse_json
assert ("pass2.json",parse_json.is_parsed = True)
end
test_json_pass3
--
do
json_file:=file_reader.read_json_from (test_dir +"pass3.json")
create parse_json.make_parser (json_file)
json_value := parse_json.parse_json
assert ("pass3.json",parse_json.is_parsed = True)
end
feature -- Tests Failures
test_json_fail1
--
do
json_file:=file_reader.read_json_from (test_dir +"fail1.json")
create parse_json.make_parser (json_file)
json_value := parse_json.parse_json
assert ("fail1.json",parse_json.is_parsed = False)
end
test_json_fail2
--
do
json_file:=file_reader.read_json_from (test_dir +"fail2.json")
create parse_json.make_parser (json_file)
json_value := parse_json.parse_json
assert ("fail2.json",parse_json.is_parsed = False)
end
test_json_fail3
--
do
json_file:=file_reader.read_json_from (test_dir +"fail3.json")
create parse_json.make_parser (json_file)
json_value := parse_json.parse_json
assert ("fail3.json",parse_json.is_parsed = False)
end
test_json_fail4
--
do
json_file:=file_reader.read_json_from (test_dir +"fail4.json")
create parse_json.make_parser (json_file)
json_value := parse_json.parse_json
assert ("fail4.json",parse_json.is_parsed = False)
end
test_json_fail5
--
do
json_file:=file_reader.read_json_from (test_dir +"fail5.json")
create parse_json.make_parser (json_file)
json_value := parse_json.parse_json
assert ("fail5.json",parse_json.is_parsed = False)
end
test_json_fail6
--
do
json_file:=file_reader.read_json_from (test_dir +"fail6.json")
create parse_json.make_parser (json_file)
json_value := parse_json.parse_json
assert ("fail6.json",parse_json.is_parsed = False )
end
test_json_fail7
--
do
json_file:=file_reader.read_json_from (test_dir +"fail7.json")
create parse_json.make_parser (json_file)
json_value := parse_json.parse_json
assert ("fail7.json",parse_json.is_parsed = False)
end
test_json_fail8
--
do
json_file:=file_reader.read_json_from (test_dir +"fail8.json")
create parse_json.make_parser (json_file)
json_value := parse_json.parse_json
assert ("fail8.json",parse_json.is_parsed = False )
end
test_json_fail9
--
do
json_file:=file_reader.read_json_from (test_dir +"fail9.json")
create parse_json.make_parser (json_file)
json_value := parse_json.parse_json
assert ("fail9.json",parse_json.is_parsed = False)
end
test_json_fail10
--
do
json_file:=file_reader.read_json_from (test_dir +"fail10.json")
create parse_json.make_parser (json_file)
json_value := parse_json.parse_json
assert ("fail10.json",parse_json.is_parsed = False)
end
test_json_fail11
--
do
json_file:=file_reader.read_json_from (test_dir +"fail11.json")
create parse_json.make_parser (json_file)
json_value := parse_json.parse_json
assert ("fail11.json",parse_json.is_parsed = False)
end
test_json_fail12
--
do
json_file:=file_reader.read_json_from (test_dir +"fail12.json")
create parse_json.make_parser (json_file)
json_value := parse_json.parse_json
assert ("fail12.json",parse_json.is_parsed = False)
end
test_json_fail13
--
do
json_file:=file_reader.read_json_from (test_dir +"fail13.json")
create parse_json.make_parser (json_file)
json_value := parse_json.parse_json
assert ("fail13.json",parse_json.is_parsed = False)
end
test_json_fail14
--
do
json_file:=file_reader.read_json_from (test_dir +"fail14.json")
create parse_json.make_parser (json_file)
json_value := parse_json.parse_json
assert ("fail14.json",parse_json.is_parsed = False)
end
test_json_fail15
--
do
json_file:=file_reader.read_json_from (test_dir +"fail15.json")
create parse_json.make_parser (json_file)
json_value := parse_json.parse_json
assert ("fail15.json",parse_json.is_parsed = False)
end
test_json_fail16
--
do
json_file:=file_reader.read_json_from (test_dir +"fail16.json")
create parse_json.make_parser (json_file)
json_value := parse_json.parse_json
assert ("fail16.json",parse_json.is_parsed = False)
end
test_json_fail17
--
do
json_file:=file_reader.read_json_from (test_dir +"fail17.json")
create parse_json.make_parser (json_file)
json_value := parse_json.parse_json
assert ("fail17.json",parse_json.is_parsed = False)
end
test_json_fail18
--
do
json_file:=file_reader.read_json_from (test_dir +"fail18.json")
create parse_json.make_parser (json_file)
json_value := parse_json.parse_json
assert ("fail18.json",parse_json.is_parsed = True)
end
test_json_fail19
--
do
json_file:=file_reader.read_json_from (test_dir +"fail19.json")
create parse_json.make_parser (json_file)
json_value := parse_json.parse_json
assert ("fail19.json",parse_json.is_parsed = False)
end
test_json_fail20
--
do
json_file:=file_reader.read_json_from (test_dir +"fail20.json")
create parse_json.make_parser (json_file)
json_value := parse_json.parse_json
assert ("fail20.json",parse_json.is_parsed = False)
end
test_json_fail21
--
do
json_file:=file_reader.read_json_from (test_dir +"fail21.json")
create parse_json.make_parser (json_file)
json_value := parse_json.parse_json
assert ("fail21.json",parse_json.is_parsed = False)
end
test_json_fail22
--
do
json_file:=file_reader.read_json_from (test_dir +"fail22.json")
create parse_json.make_parser (json_file)
json_value := parse_json.parse_json
assert ("fail22.json",parse_json.is_parsed = False)
end
test_json_fail23
--
do
json_file:=file_reader.read_json_from (test_dir +"fail23.json")
create parse_json.make_parser (json_file)
json_value := parse_json.parse_json
assert ("fail23.json",parse_json.is_parsed = False)
end
test_json_fail24
--
do
json_file:=file_reader.read_json_from (test_dir +"fail24.json")
create parse_json.make_parser (json_file)
json_value := parse_json.parse_json
assert ("fail24.json",parse_json.is_parsed = False)
end
test_json_fail25
--
do
json_file:=file_reader.read_json_from (test_dir +"fail25.json")
create parse_json.make_parser (json_file)
json_value := parse_json.parse_json
assert ("fail25.json",parse_json.is_parsed = False)
end
test_json_fail26
--
do
json_file:=file_reader.read_json_from (test_dir +"fail26.json")
create parse_json.make_parser (json_file)
json_value := parse_json.parse_json
assert ("fail26.json",parse_json.is_parsed = False)
end
test_json_fail27
--
do
json_file:=file_reader.read_json_from (test_dir +"fail27.json")
create parse_json.make_parser (json_file)
json_value := parse_json.parse_json
assert ("fail27.json",parse_json.is_parsed = False)
end
test_json_fail28
--
do
json_file:=file_reader.read_json_from (test_dir +"fail28.json")
create parse_json.make_parser (json_file)
json_value := parse_json.parse_json
assert ("fail28.json",parse_json.is_parsed = False)
end
test_json_fail29
--
do
json_file:=file_reader.read_json_from (test_dir +"fail29.json")
create parse_json.make_parser (json_file)
json_value := parse_json.parse_json
assert ("fail29.json",parse_json.is_parsed = False )
end
test_json_fail30
--
do
json_file:=file_reader.read_json_from (test_dir +"fail30.json")
create parse_json.make_parser (json_file)
json_value := parse_json.parse_json
assert ("fail30.json",parse_json.is_parsed = False)
end
test_json_fail31
--
do
json_file:=file_reader.read_json_from (test_dir +"fail31.json")
create parse_json.make_parser (json_file)
json_value := parse_json.parse_json
assert ("fail31.json",parse_json.is_parsed = False)
end
test_json_fail32
--
do
json_file:=file_reader.read_json_from (test_dir +"fail32.json")
create parse_json.make_parser (json_file)
json_value := parse_json.parse_json
assert ("fail32.json",parse_json.is_parsed = False)
end
test_json_fail33
--
do
json_file:=file_reader.read_json_from (test_dir +"fail33.json")
create parse_json.make_parser (json_file)
json_value := parse_json.parse_json
assert ("fail33.json",parse_json.is_parsed = False)
end
feature -- JSON_FROM_FILE
json_file : STRING
parse_json : JSON_PARSER
json_object : JSON_OBJECT
file_reader : JSON_FILE_READER
json_value : JSON_VALUE
test_dir : STRING
local
i: INTEGER
do
Result := (create {EXECUTION_ENVIRONMENT}).current_working_directory
Result.append_character ((create {OPERATING_ENVIRONMENT}).directory_separator)
-- The should looks 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
Result.append_character ('.')
Result.append_character ('.')
Result.append_character ((create {OPERATING_ENVIRONMENT}).directory_separator)
i := i - 1
end
-- Result := "/home/jvelilla/work/project/Eiffel/ejson_dev/trunk/test/autotest/test_suite/"
end
invariant
file_reader /= Void
end