class HTML_BODY_WORD_COUNTER_TEST_SET
Test class HTML_BODY_WORD_COUNTER
note
description: "Test class ${HTML_BODY_WORD_COUNTER}"
author: "Finnian Reilly"
copyright: "Copyright (c) 2001-2022 Finnian Reilly"
contact: "finnian at eiffel hyphen loop dot com"
license: "MIT license (See: en.wikipedia.org/wiki/MIT_License)"
date: "2025-05-04 21:20:21 GMT (Sunday 4th May 2025)"
revision: "10"
class
HTML_BODY_WORD_COUNTER_TEST_SET
inherit
EL_EQA_TEST_SET
SHARED_DATA_DIRECTORIES
create
make
feature {NONE} -- Initialization
make
-- initialize `test_table'
do
make_named (<<
["counter", agent test_counter]
>>)
end
feature -- Tests
test_counter
local
command: HTML_BODY_WORD_COUNTER
do
create command.make (Data_dir.docs #+ "html/I Ching")
command.execute
assert ("word count is 753", command.word_count = 753)
end
end