rims 0.2.6 → 0.3.1

data/test/test_protocol_fetch.rb

@@ -516,25 +516,27 @@ module RIMS::Test
         assert_fetch(2,
                      [
                        'BODY ' +
-                       encode_bodystructure([ 'APPLICATION',
-                                              'OCTET-STREAM',
+                       encode_bodystructure([ 'TEXT',
+                                              'PLAIN',
                                               nil,
                                               nil,
                                               nil,
                                               nil,
-                                              @empty_mail.raw_source.bytesize
+                                              @empty_mail.raw_source.bytesize,
+                                              @empty_mail.raw_source.each_line.count
                                             ])
                      ])
         assert_fetch(3,
                      [
                        'BODY ' +
-                       encode_bodystructure([ 'APPLICATION',
-                                              'OCTET-STREAM',
+                       encode_bodystructure([ 'TEXT',
+                                              'PLAIN',
                                               nil,
                                               nil,
                                               nil,
                                               nil,
-                                              @no_body_mail.raw_source.bytesize
+                                              @no_body_mail.raw_source.bytesize,
+                                              @no_body_mail.raw_source.each_line.count
                                             ])
                      ])
       }
@@ -654,13 +656,14 @@ module RIMS::Test
                      ])
         assert_fetch(2, [
                        'BODYSTRUCTURE ' +
-                       encode_bodystructure([ 'APPLICATION',
-                                              'OCTET-STREAM',
+                       encode_bodystructure([ 'TEXT',
+                                              'PLAIN',
                                               nil,
                                               nil,
                                               nil,
                                               nil,
                                               @empty_mail.raw_source.bytesize,
+                                              @empty_mail.raw_source.each_line.count,
                                               nil,
                                               nil,
                                               nil,
@@ -669,13 +672,14 @@ module RIMS::Test
                      ])
         assert_fetch(3, [
                        'BODYSTRUCTURE ' +
-                       encode_bodystructure([ 'APPLICATION',
-                                              'OCTET-STREAM',
+                       encode_bodystructure([ 'TEXT',
+                                              'PLAIN',
                                               nil,
                                               nil,
                                               nil,
                                               nil,
                                               @no_body_mail.raw_source.bytesize,
+                                              @no_body_mail.raw_source.each_line.count,
                                               nil,
                                               nil,
                                               nil,

data/test/test_protocol_request.rb

@@ -2,124 +2,63 @@
 
 require 'logger'
 require 'rims'
+require 'stringio'
 require 'test/unit'
 
 module RIMS::Test
   class ProtocolRequestReaderTest < Test::Unit::TestCase
+    extend AssertUtility
+    include AssertUtility
+
+    LINE_LENGTH_LIMIT  = 128
+    LITERAL_SIZE_LIMIT = 1024**2
+    COMMAND_SIZE_LIMIT = LITERAL_SIZE_LIMIT + LINE_LENGTH_LIMIT
+
     def setup
       @input = StringIO.new('', 'r')
       @output = StringIO.new('', 'w')
       @logger = Logger.new(STDOUT)
       @logger.level = ($DEBUG) ? Logger::DEBUG : Logger::FATAL
-      @reader = RIMS::Protocol::RequestReader.new(@input, @output, @logger)
+      @reader = RIMS::Protocol::RequestReader.new(@input, @output, @logger,
+                                                  line_length_limit: LINE_LENGTH_LIMIT,
+                                                  literal_size_limit: LITERAL_SIZE_LIMIT,
+                                                  command_size_limit: COMMAND_SIZE_LIMIT)
     end
 
-    def test_scan_line
-      assert_equal([], @reader.scan_line(''))
-      assert_equal(%w[ abcd CAPABILITY ], @reader.scan_line('abcd CAPABILITY'))
-      assert_equal(%w[ abcd OK CAPABILITY completed ], @reader.scan_line('abcd OK CAPABILITY completed'))
-      assert_equal(%w[ * CAPABILITY IMAP4rev1 AUTH=KERBEROS_V4 ], @reader.scan_line('* CAPABILITY IMAP4rev1 AUTH=KERBEROS_V4'))
-      assert_equal(%w[ * 172 EXISTS ], @reader.scan_line('* 172 EXISTS'))
-      assert_equal([ '*', 'OK', '['.intern, 'UNSEEN', '12', ']'.intern, 'Message', '12', 'is', 'first', 'unseen' ],
-                   @reader.scan_line('* OK [UNSEEN 12] Message 12 is first unseen'))
-      assert_equal([ '*', 'FLAGS', '('.intern, '\Answered', '\Flagged', '\Deleted', '\Seen', '\Draft', ')'.intern ],
-                   @reader.scan_line('* FLAGS (\Answered \Flagged \Deleted \Seen \Draft)'))
-      assert_equal([ '*', 'OK', '['.intern, 'PERMANENTFLAGS', '('.intern, '\Deleted', '\Seen', '\*', ')'.intern, ']'.intern, 'Limited' ],
-                   @reader.scan_line('* OK [PERMANENTFLAGS (\Deleted \Seen \*)] Limited'))
-      assert_equal([ 'A82', 'LIST', '', '*' ], @reader.scan_line('A82 LIST "" *'))
-      assert_equal([ '*', 'LIST', '('.intern, '\Noselect', ')'.intern, '/', 'foo' ], @reader.scan_line('* LIST (\Noselect) "/" foo',))
-      assert_equal([ '*', 'LIST', '('.intern, '\Noselect', ')'.intern, '/', 'foo [bar] (baz)' ],
-                   @reader.scan_line('* LIST (\Noselect) "/" "foo [bar] (baz)"'))
-      assert_equal([ '*', 'LIST', '('.intern, '\Noselect', ')'.intern, :NIL, '' ], @reader.scan_line('* LIST (\Noselect) NIL ""'))
-      assert_equal([ 'A654', 'FETCH', '2:4',
-                     '('.intern,
-                     [ :body, RIMS::Protocol.body(symbol: 'BODY', section: '') ],
-                     ')'.intern
-                   ],
-                   @reader.scan_line('A654 FETCH 2:4 (BODY[])'))
-
-      assert_equal('', @output.string)
+    data('EOF' => [
+           nil,
+           ''
+         ],
+         'short_line_length' => [
+           "foo\r\n",
+           "foo\r\n"
+         ],
+         'upper_bound_line_length' => [
+           'x' * (LINE_LENGTH_LIMIT - 2) + "\r\n",
+           'x' * (LINE_LENGTH_LIMIT - 2) + "\r\n"
+         ])
+    def test_gets(data)
+      expected_line, input_line = data
+      @input.string = input_line
+      assert_equal(expected_line, @reader.gets)
     end
 
-    def test_scan_line_string_literal
-      literal = <<-'EOF'
-Date: Mon, 7 Feb 1994 21:52:25 -0800 (PST)
-From: Fred Foobar <foobar@Blurdybloop.COM>
-Subject: afternoon meeting
-To: mooch@owatagu.siam.edu
-Message-Id: <B27397-0100000@Blurdybloop.COM>
-MIME-Version: 1.0
-Content-Type: TEXT/PLAIN; CHARSET=US-ASCII
-
-Hello Joe, do you think we can meet at 3:30 tomorrow?
-      EOF
-
-      line = 'A003 APPEND saved-messages (\Seen) ' + "{#{literal.bytesize}}"
-      @input.string = literal + "\r\n"
-
-      assert_equal([ 'A003', 'APPEND', 'saved-messages', '('.intern, '\Seen', ')'.intern, literal ], @reader.scan_line(line))
-      assert_equal('', @input.read)
-
-      cmd_cont_req = @output.string.each_line
-      assert_match(/^\+ /, cmd_cont_req.next)
-      assert_raise(StopIteration) { cmd_cont_req.next }
+    data('too_long_line_length' => [
+           'x' * LINE_LENGTH_LIMIT,
+           'x' * LINE_LENGTH_LIMIT + "yyy\r\n"
+         ],
+         'upper_bound_line_length' => [
+           'x' * LINE_LENGTH_LIMIT,
+           'x' * LINE_LENGTH_LIMIT
+         ])
+    def test_gets_line_too_long_error
+      expected_line_fragment, input_line = data
+      @input.string = input_line
+      error = assert_raise(RIMS::LineTooLongError) { @reader.gets }
+      assert_equal(expected_line_fragment, error.optional_data[:line_fragment])
     end
 
-    def test_read_line
-      assert_nil(@reader.read_line)
-
-      @input.string = "\n"
-      assert_equal([], @reader.read_line)
-
-      @input.string = "abcd CAPABILITY\n"
-      assert_equal(%w[ abcd CAPABILITY ], @reader.read_line)
-
-      @input.string = "abcd OK CAPABILITY completed\n"
-      assert_equal(%w[ abcd OK CAPABILITY completed ], @reader.read_line)
-
-      @input.string = "* CAPABILITY IMAP4rev1 AUTH=KERBEROS_V4\n"
-      assert_equal(%w[ * CAPABILITY IMAP4rev1 AUTH=KERBEROS_V4 ], @reader.read_line)
-
-      @input.string = "* 172 EXISTS\n"
-      assert_equal(%w[ * 172 EXISTS ], @reader.read_line)
-
-      @input.string = "* OK [UNSEEN 12] Message 12 is first unseen\n"
-      assert_equal([ '*', 'OK', '['.intern, 'UNSEEN', '12', ']'.intern, 'Message', '12', 'is', 'first', 'unseen', ], @reader.read_line)
-
-      @input.string = "* FLAGS (\\Answered \\Flagged \\Deleted \\Seen \\Draft)\n"
-      assert_equal([ '*', 'FLAGS', '('.intern, '\Answered', '\Flagged', '\Deleted', '\Seen', '\Draft', ')'.intern ], @reader.read_line)
-
-      @input.string = "* OK [PERMANENTFLAGS (\\Deleted \\Seen \\*)] Limited\n"
-      assert_equal([ '*', 'OK',
-                     '['.intern, 'PERMANENTFLAGS', '('.intern, '\Deleted', '\Seen', '\*', ')'.intern, ']'.intern,
-                     'Limited'
-                   ], @reader.read_line)
-
-      @input.string = "A82 LIST \"\" *\n"
-      assert_equal([ 'A82', 'LIST', '', '*' ], @reader.read_line)
-
-      @input.string = "* LIST (\\Noselect) \"/\" foo\n"
-      assert_equal([ '*', 'LIST', '('.intern, '\Noselect', ')'.intern, '/', 'foo' ], @reader.read_line)
-
-      @input.string = "* LIST (\\Noselect) \"/\" \"foo [bar] (baz)\""
-      assert_equal([ '*', 'LIST', '('.intern, '\Noselect', ')'.intern, '/', 'foo [bar] (baz)' ], @reader.read_line)
-
-      @input.string = '* LIST (\Noselect) NIL ""'
-      assert_equal([ '*', 'LIST', '('.intern, '\Noselect', ')'.intern, :NIL, '' ], @reader.read_line)
-
-      @input.string = "A654 FETCH 2:4 (BODY[])\n"
-      assert_equal([ 'A654', 'FETCH', '2:4',
-                     '('.intern,
-                     [ :body, RIMS::Protocol.body(symbol: 'BODY', section: '') ],
-                     ')'.intern
-                   ],
-                   @reader.read_line)
-
-      assert_equal('', @output.string)
-    end
-
-    def test_read_line_string_literal
-      literal = <<-'EOF'
+    LITERAL_1 = <<-'EOF'
 Date: Mon, 7 Feb 1994 21:52:25 -0800 (PST)
 From: Fred Foobar <foobar@Blurdybloop.COM>
 Subject: afternoon meeting
@@ -129,34 +68,133 @@ MIME-Version: 1.0
 Content-Type: TEXT/PLAIN; CHARSET=US-ASCII
 
 Hello Joe, do you think we can meet at 3:30 tomorrow?
-      EOF
+    EOF
 
-      @input.string = "A003 APPEND saved-messages (\\Seen) {#{literal.bytesize}}\n" + literal + "\n"
-      assert_equal([ 'A003', 'APPEND', 'saved-messages', '('.intern, '\Seen', ')'.intern, literal ], @reader.read_line)
-      assert_equal('', @input.read)
+    LITERAL_2 = <<-'EOF'
+Subject: parse test
 
-      cmd_cont_req = @output.string.each_line
-      assert_match(/^\+ /, cmd_cont_req.next)
-      assert_raise(StopIteration) { cmd_cont_req.next }
+body[]
+    EOF
+
+    LITERAL_3 = 'body[]'
+
+    data('empty'                           => [ nil,                                nil ],
+         'newline'                         => [ nil,                                "\n" ],
+         'whitespaces'                     => [ nil,                                " \t\n" ],
+         'tagged_command'                  => [ %w[ abcd CAPABILITY ],              "abcd CAPABILITY\n" ],
+         'tagged_command_with_whitespaces' => [ %w[ abcd CAPABILITY ],              "\n \n\t\nabcd CAPABILITY\n" ],
+         'tagged_response'                 => [ %w[ abcd OK CAPABILITY completed ], "abcd OK CAPABILITY completed\n" ],
+         'group' => [
+           [ 'A003', 'STORE', '2:4', '+FLAGS', [ :group, '\Deleted' ] ],
+           "A003 STORE 2:4 +FLAGS (\\Deleted)\n"
+         ],
+         'nested_group' => [
+           [ 'abcd', 'SEARCH',
+             [ :group,
+               'OR',
+               [ :group, 'FROM', 'foo' ],
+               [ :group, 'FROM', 'bar' ]
+             ]
+           ],
+           "abcd SEARCH (OR (FROM foo) (FROM bar))\n"
+         ],
+         'quoted_special_nil' => [
+           [ 'abcd', 'SEARCH', 'SUBJECT', 'NIL'  ],
+           "abcd SEARCH SUBJECT \"NIL\"\n"
+         ],
+         'quoted_special_parenthesis_begin' => [
+           [ 'abcd', 'SEARCH', 'SUBJECT', '(' ],
+           "abcd SEARCH SUBJECT \"(\"\n"
+         ],
+         'quoted_special_parenthesis_end' => [
+           [ 'abcd', 'SEARCH', 'SUBJECT', ')' ],
+           "abcd SEARCH SUBJECT \")\"\n"
+         ],
+         'quoted_special_square_bracket_begin' => [
+           [ 'abcd', 'SEARCH', 'SUBJECT', '['  ],
+           "abcd SEARCH SUBJECT \"[\"\n"
+         ],
+         'quoted_special_square_bracket_end' => [
+           [ 'abcd', 'SEARCH', 'SUBJECT', ']' ],
+           "abcd SEARCH SUBJECT \"]\"\n"
+         ],
+         'fetch_non_extensible_bodystructure' => [
+           [ 'A654', 'FETCH', '2:4', [ :group, 'BODY' ] ],
+           "A654 FETCH 2:4 (BODY)\n"
+         ],
+         'fetch_body_section' => [
+           [ 'A654', 'FETCH', '2:4', [
+               :group, [
+                 :body,
+                 RIMS::Protocol.body(symbol: 'BODY',
+                                     section: '',
+                                     section_list: [])
+               ]
+             ]
+           ],
+           "A654 FETCH 2:4 (BODY[])\n"
+         ],
+         'fetch_multiple_items' => [
+           [ 'A654', 'FETCH', '2:4',
+             [ :group,
+               'FLAGS',
+               [ :body,
+                 RIMS::Protocol.body(symbol: 'BODY',
+                                     option: 'PEEK',
+                                     section: 'HEADER.FIELDS (DATE FROM)',
+                                     section_list: [ 'HEADER.FIELDS', [ :group, 'DATE', 'FROM' ] ],
+                                     partial_origin: 0,
+                                     partial_size: 1500)
+               ]
+             ]
+           ],
+           "A654 FETCH 2:4 (FLAGS BODY.PEEK[HEADER.FIELDS (DATE FROM)]<0.1500>)\n"
+         ],
+         'append_inline' => [
+           [ 'A654', 'APPEND', 'saved-messages', 'body[]' ],
+           "A654 APPEND saved-messages \"body[]\"\n"
+         ],
+         'append_literal_1' => [
+           [ 'A003', 'APPEND', 'saved-messages', [ :group, '\Seen' ], LITERAL_1 ],
+           "A003 APPEND saved-messages (\\Seen) #{literal(LITERAL_1)}\n",
+           true
+         ],
+         'append_literal_2' => [
+           [ 'A004', 'APPEND', 'saved-messages', LITERAL_2 ],
+           "A004 APPEND saved-messages #{literal(LITERAL_2)}\n",
+           true
+         ],
+         'append_literal_3' => [
+           [ 'A005', 'APPEND', 'saved-messages', LITERAL_3 ],
+           "A005 APPEND saved-messages #{literal(LITERAL_3)}\n",
+           true
+         ],
+         'append_literal_size_limit' => [
+           [ 'A005', 'APPEND', 'saved-messages', 'x' * LITERAL_SIZE_LIMIT ],
+           "A005 APPEND saved-messages #{literal('x' * LITERAL_SIZE_LIMIT)}\n",
+           true
+         ])
+    def test_read_command(data)
+      expected_atom_list, input_string, is_literal = data
+      @input.string = input_string if input_string
+      assert_equal(expected_atom_list, @reader.read_command)
+      assert_equal(expected_atom_list[0], @reader.command_tag) if expected_atom_list
+
+      if (is_literal) then
+        cmd_cont_req = @output.string.each_line
+        assert_match(/^\+ /, cmd_cont_req.next)
+        assert_raise(StopIteration) { cmd_cont_req.next }
+      else
+        assert_equal('', @output.string)
+      end
     end
 
-    def test_read_line_string_literal_multi
-      literal1 = <<-'EOF'
-Date: Mon, 7 Feb 1994 21:52:25 -0800 (PST)
-From: Fred Foobar <foobar@Blurdybloop.COM>
-Subject: afternoon meeting
-To: mooch@owatagu.siam.edu
-Message-Id: <B27397-0100000@Blurdybloop.COM>
-MIME-Version: 1.0
-Content-Type: TEXT/PLAIN; CHARSET=US-ASCII
-      EOF
-
-      literal2 = <<-'EOF'
-Hello Joe, do you think we can meet at 3:30 tomorrow?
-      EOF
+    def test_read_command_string_literal_multi
+      literal_pair = RIMS::RFC822::Parse.split_message(LITERAL_1)
 
-      @input.string = "* ({#{literal1.bytesize}}\n" + literal1 + " {#{literal2.bytesize}}\n" + literal2 + ")\n"
-      assert_equal([ '*', '('.intern, literal1, literal2, ')'.intern ], @reader.read_line)
+      @input.string = "A284 SEARCH CHARSET UTF-8 TEXT #{literal(literal_pair[0])} TEXT #{literal(literal_pair[1])}\n"
+      assert_equal([ 'A284', 'SEARCH', 'CHARSET', 'UTF-8', 'TEXT', literal_pair[0], 'TEXT', literal_pair[1] ], @reader.read_command)
+      assert_equal('A284', @reader.command_tag)
       assert_equal('', @input.read)
 
       cmd_cont_req = @output.string.each_line
@@ -165,169 +203,156 @@ Hello Joe, do you think we can meet at 3:30 tomorrow?
       assert_raise(StopIteration) { cmd_cont_req.next }
     end
 
-    def test_parse
-      assert_equal([], @reader.parse([]))
-      assert_equal(%w[ abcd CAPABILITY ], @reader.parse(%w[ abcd CAPABILITY ]))
-      assert_equal(%w[ abcd OK CAPABILITY completed ], @reader.parse(%w[ abcd OK CAPABILITY completed ]))
-      assert_equal([ '*', 'OK', [ :block, 'UNSEEN', '12' ], 'Message', '12', 'is', 'first', 'unseen' ],
-                   @reader.parse([ '*', 'OK', '['.intern, 'UNSEEN', '12', ']'.intern, 'Message', '12', 'is', 'first', 'unseen' ]))
-      assert_equal([ '*', 'FLAGS', [ :group,  '\Answered', '\Flagged', '\Deleted', '\Seen', '\Draft' ] ],
-                   @reader.parse([ '*', 'FLAGS', '('.intern, '\Answered', '\Flagged', '\Deleted', '\Seen', '\Draft', ')'.intern ]))
-      assert_equal([ '*', 'OK', [ :block, 'PERMANENTFLAGS', [ :group, '\Deleted', '\Seen', '\*' ] ], 'Limited' ],
-                   @reader.parse([ '*', 'OK', '['.intern, 'PERMANENTFLAGS', '('.intern, '\Deleted', '\Seen', '\*', ')'.intern, ']'.intern, 'Limited' ]))
-      assert_equal([ '*', 'LIST', [ :group, '\Noselect' ], :NIL, '' ],
-                   @reader.parse([ '*', 'LIST', '('.intern, '\Noselect', ')'.intern, :NIL, '' ]))
-      assert_equal([ 'A654', 'FETCH', '2:4',
-                     [ :group,
-                       [ :body,
-                         RIMS::Protocol.body(symbol: 'BODY',
-                                             section: '',
-                                             section_list: [])
-                       ]
-                     ]
-                   ],
-                   @reader.parse([ 'A654', 'FETCH', '2:4',
-                                   '('.intern,
-                                   [ :body, RIMS::Protocol.body(symbol: 'BODY', section: '') ],
-                                   ')'.intern
-                                 ]))
-      assert_equal([ 'A003', 'APPEND', 'saved-messages', "foo\nbody[]\nbar\n" ],
-                   @reader.parse([ 'A003', 'APPEND', 'saved-messages', "foo\nbody[]\nbar\n" ]))
-
-      error = assert_raise(RIMS::SyntaxError) { @reader.parse([ '*', 'OK', '['.intern, 'UNSEEN', '12' ]) }
-      assert_match(/not found a terminator/, error.message)
-
-      error = assert_raise(RIMS::SyntaxError) { @reader.parse([ '*', 'LIST', '('.intern, '\Noselect' ]) }
-      assert_match(/not found a terminator/, error.message)
-
-      assert_equal('', @output.string)
+    def test_read_command_no_tag_error
+      @input.string = "noop\r\n"
+      error = assert_raise(RIMS::SyntaxError) { @reader.read_command }
+      assert_match(/need for tag/, error.message)
     end
 
-    def test_read_command
-      assert_nil(@reader.read_command)
-
-      @input.string = "\n"
-      assert_nil(@reader.read_command)
-
-      @input.string = " \t\n"
-      assert_nil(@reader.read_command)
-
-      @input.string = "abcd CAPABILITY\n"
-      assert_equal(%w[ abcd CAPABILITY ], @reader.read_command)
-
-      @input.string = "\n \n\t\nabcd CAPABILITY\n"
-      assert_equal(%w[ abcd CAPABILITY ], @reader.read_command)
-
-      @input.string = "abcd OK CAPABILITY completed\n"
-      assert_equal(%w[ abcd OK CAPABILITY completed ], @reader.read_command)
-
-      @input.string = "A003 STORE 2:4 +FLAGS (\\Deleted)\n"
-      assert_equal([ 'A003', 'STORE', '2:4', '+FLAGS', [ :group, '\Deleted' ] ], @reader.read_command)
-
-      @input.string = "abcd SEARCH (OR (FROM foo) (FROM bar))\n"
-      assert_equal([ 'abcd', 'SEARCH',
-                     [ :group,
-                       'OR',
-                       [ :group, 'FROM', 'foo' ],
-                       [ :group, 'FROM', 'bar' ]
-                     ]
-                   ],
-                   @reader.read_command)
-
-      @input.string = "abcd SEARCH SUBJECT \"NIL\"\n"
-      assert_equal([ 'abcd', 'SEARCH', 'SUBJECT', 'NIL'  ], @reader.read_command)
-
-      @input.string = "abcd SEARCH SUBJECT \"(\"\n"
-      assert_equal([ 'abcd', 'SEARCH', 'SUBJECT', '('  ], @reader.read_command)
-
-      @input.string = "abcd SEARCH SUBJECT \")\"\n"
-      assert_equal([ 'abcd', 'SEARCH', 'SUBJECT', ')'  ], @reader.read_command)
-
-      @input.string = "abcd SEARCH SUBJECT \"[\"\n"
-      assert_equal([ 'abcd', 'SEARCH', 'SUBJECT', '['  ], @reader.read_command)
-
-      @input.string = "abcd SEARCH SUBJECT \"]\"\n"
-      assert_equal([ 'abcd', 'SEARCH', 'SUBJECT', ']'  ], @reader.read_command)
-
-      @input.string = "A654 FETCH 2:4 (BODY)\n"
-      assert_equal([ 'A654', 'FETCH', '2:4', [ :group, 'BODY' ] ], @reader.read_command)
-
-      @input.string = "A654 FETCH 2:4 (BODY[])\n"
-      assert_equal([ 'A654', 'FETCH', '2:4', [
-                       :group, [
-                         :body,
-                         RIMS::Protocol.body(symbol: 'BODY',
-                                             section: '',
-                                             section_list: [])
-                       ]
-                     ]
-                   ], @reader.read_command)
-
-      @input.string = "A654 FETCH 2:4 (FLAGS BODY.PEEK[HEADER.FIELDS (DATE FROM)]<0.1500>)\n"
-      assert_equal([ 'A654', 'FETCH', '2:4',
-                     [ :group,
-                       'FLAGS',
-                       [ :body,
-                         RIMS::Protocol.body(symbol: 'BODY',
-                                             option: 'PEEK',
-                                             section: 'HEADER.FIELDS (DATE FROM)',
-                                             section_list: [ 'HEADER.FIELDS', [ :group, 'DATE', 'FROM' ] ],
-                                             partial_origin: 0,
-                                             partial_size: 1500)
-                       ]
-                     ]
-                   ],
-                   @reader.read_command)
-
-      @input.string = "A654 APPEND saved-messages \"body[]\"\n"
-      assert_equal([ 'A654', 'APPEND', 'saved-messages', 'body[]' ], @reader.read_command)
-
-      assert_equal('', @output.string)
-
-      literal = <<-'EOF'
-Date: Mon, 7 Feb 1994 21:52:25 -0800 (PST)
-From: Fred Foobar <foobar@Blurdybloop.COM>
-Subject: afternoon meeting
-To: mooch@owatagu.siam.edu
-Message-Id: <B27397-0100000@Blurdybloop.COM>
-MIME-Version: 1.0
-Content-Type: TEXT/PLAIN; CHARSET=US-ASCII
-
-Hello Joe, do you think we can meet at 3:30 tomorrow?
-      EOF
-
-      @input.string = "A003 APPEND saved-messages (\\Seen) {#{literal.bytesize}}\n" + literal + "\n"
-      @output.string = ''
-      assert_equal([ 'A003', 'APPEND', 'saved-messages', [ :group, '\Seen' ], literal ], @reader.read_command)
-
-      cmd_cont_req = @output.string.each_line
-      assert_match(/^\+ /, cmd_cont_req.next)
-      assert_raise(StopIteration) { cmd_cont_req.next }
-
+    data('*'          => %w[ * * ],
+         '+'          => %w[ + + ],
+         'not_string' => [ '{123}', [ :literal, 123 ] ])
+    def test_read_command_invalid_tag_error(data)
+      invalid_tag, parsed_tag = data
+      @input.string = invalid_tag
+      error = assert_raise(RIMS::SyntaxError) { @reader.read_command }
+      assert_match(/invalid command tag/, error.message)
+      assert_include(error.message, parsed_tag.to_s)
+    end
 
-      literal2 = <<-'EOF'
-Subject: parse test
+    def test_read_command_line_too_long_error
+      line = 'X001 x'
+      while (line.bytesize < LINE_LENGTH_LIMIT)
+        line << 'x'
+      end
+      line << "x\r\n"
+      assert_operator(line.bytesize, :>, LINE_LENGTH_LIMIT)
+
+      @input.string = line
+      assert_raise(RIMS::LineTooLongError) { @reader.read_command }
+      assert_equal("x\r\n", @input.read, 'not read end of line')
+    end
 
-body[]
-      EOF
+    def test_read_command_literal_size_too_large_error
+      @input.string = "A001 APPEND saved-messages #{literal('x' * (LITERAL_SIZE_LIMIT + 1))}\n"
+      assert_raise(RIMS::LiteralSizeTooLargeError) { @reader.read_command }
+      assert_equal('x' * (LITERAL_SIZE_LIMIT + 1)  + "\n", @input.read, 'not read literal')
+    end
 
-      @input.string = "A004 APPEND saved-messages {#{literal2.bytesize}}\n" + literal2 + "\n"
-      @output.string = ''
-      assert_equal([ 'A004', 'APPEND', 'saved-messages', literal2 ], @reader.read_command)
+    def test_read_command_command_size_too_large_error_by_line
+      @input.string = "A001 APPEND #{literal('x' * LITERAL_SIZE_LIMIT)} #{'y' * (LINE_LENGTH_LIMIT - 2)}\n"
+      assert_raise(RIMS::CommandSizeTooLargeError) { @reader.read_command }
+      assert_equal('', @input.read, 'read whole a line')
+    end
 
-      cmd_cont_req = @output.string.each_line
-      assert_match(/^\+ /, cmd_cont_req.next)
-      assert_raise(StopIteration) { cmd_cont_req.next }
+    def test_read_command_command_size_too_large_error_by_literal
+      @input.string = "A001 APPEND #{literal('x' * LITERAL_SIZE_LIMIT)} #{literal('y' * LITERAL_SIZE_LIMIT)}\n"
+      assert_raise(RIMS::CommandSizeTooLargeError) { @reader.read_command }
+      assert_equal('y' * (LITERAL_SIZE_LIMIT) + "\n", @input.read, 'not read literal')
+    end
+  end
 
-      literal3 = 'body[]'
+  class ProtocolRequestReaderClassMethodTest < Test::Unit::TestCase
+    data('empty'             => [ [],                                            '' ],
+         'tagged_command'    => [ %w[ abcd CAPABILITY ],                         'abcd CAPABILITY' ],
+         'tagged_response'   => [ %w[ abcd OK CAPABILITY completed ],            'abcd OK CAPABILITY completed' ],
+         'untagged_response' => [ %w[ * CAPABILITY IMAP4rev1 AUTH=KERBEROS_V4 ], '* CAPABILITY IMAP4rev1 AUTH=KERBEROS_V4' ],
+         'untagged_exists'   => [ %w[ * 172 EXISTS ],                            '* 172 EXISTS' ],
+         'untagged_unseen' => [
+           [ '*', 'OK', '['.intern, 'UNSEEN', '12', ']'.intern, 'Message', '12', 'is', 'first', 'unseen' ],
+           '* OK [UNSEEN 12] Message 12 is first unseen'
+         ],
+         'untagged_flags' => [
+           [ '*', 'FLAGS', '('.intern, '\Answered', '\Flagged', '\Deleted', '\Seen', '\Draft', ')'.intern ],
+           '* FLAGS (\Answered \Flagged \Deleted \Seen \Draft)'
+         ],
+         'untagged_permanentflags' => [
+           [ '*', 'OK', '['.intern, 'PERMANENTFLAGS', '('.intern, '\Deleted', '\Seen', '\*', ')'.intern, ']'.intern, 'Limited' ],
+           '* OK [PERMANENTFLAGS (\Deleted \Seen \*)] Limited'
+         ],
+         'list_empty_reference' => [
+           [ 'A82', 'LIST', '', '*' ],
+           'A82 LIST "" *'
+         ],
+         'untagged_list_delimiter' => [
+           [ '*', 'LIST', '('.intern, '\Noselect', ')'.intern, '/', 'foo' ],
+           '* LIST (\Noselect) "/" foo'
+         ],
+         'untagged_list_quoted_name' => [
+           [ '*', 'LIST', '('.intern, '\Noselect', ')'.intern, '/', 'foo [bar] (baz)' ],
+           '* LIST (\Noselect) "/" "foo [bar] (baz)"'
+         ],
+         'untagged_list_nil_delimiter' => [
+           [ '*', 'LIST', '('.intern, '\Noselect', ')'.intern, :NIL, '' ],
+           '* LIST (\Noselect) NIL ""'
+         ],
+         'fetch_body_command' => [
+           [ 'A654', 'FETCH', '2:4',
+             '('.intern,
+             [ :body, RIMS::Protocol.body(symbol: 'BODY', section: '') ],
+             ')'.intern
+           ],
+           'A654 FETCH 2:4 (BODY[])'
+         ],
+         'append_literal' => [
+           [ 'A003', 'APPEND', 'saved-messages', '('.intern, '\Seen', ')'.intern, [ :literal, 310 ] ],
+           'A003 APPEND saved-messages (\Seen) {310}'
+         ])
+    def test_scan(data)
+      expected_atom_list, line = data
+      assert_equal(expected_atom_list, RIMS::Protocol::RequestReader.scan(line))
+    end
 
-      @input.string = "A005 APPEND saved-messages {#{literal3.bytesize}}\n" + literal3 + "\n"
-      @output.string = ''
-      assert_equal([ 'A005', 'APPEND', 'saved-messages', literal3 ], @reader.read_command)
+    data('empty'           => [ [],                                 [] ],
+         'tagged_command'  => [ %w[ abcd CAPABILITY ],              %w[ abcd CAPABILITY ] ],
+         'tagged_response' => [ %w[ abcd OK CAPABILITY completed ], %w[ abcd OK CAPABILITY completed ] ],
+         'untagged_unseen' => [
+           [ '*', 'OK', [ :block, 'UNSEEN', '12' ], 'Message', '12', 'is', 'first', 'unseen' ],
+           [ '*', 'OK', '['.intern, 'UNSEEN', '12', ']'.intern, 'Message', '12', 'is', 'first', 'unseen' ]
+         ],
+         'untagged_flags' =>[
+           [ '*', 'FLAGS', [ :group,  '\Answered', '\Flagged', '\Deleted', '\Seen', '\Draft' ] ],
+           [ '*', 'FLAGS', '('.intern, '\Answered', '\Flagged', '\Deleted', '\Seen', '\Draft', ')'.intern ]
+         ],
+         'untagged_permanentflags' => [
+           [ '*', 'OK', [ :block, 'PERMANENTFLAGS', [ :group, '\Deleted', '\Seen', '\*' ] ], 'Limited' ],
+           [ '*', 'OK', '['.intern, 'PERMANENTFLAGS', '('.intern, '\Deleted', '\Seen', '\*', ')'.intern, ']'.intern, 'Limited' ]
+         ],
+         'untagged_list_nil_delimiter' => [
+           [ '*', 'LIST', [ :group, '\Noselect' ], :NIL, '' ],
+           [ '*', 'LIST', '('.intern, '\Noselect', ')'.intern, :NIL, '' ]
+         ],
+         'fetch_body_command' => [
+           [ 'A654', 'FETCH', '2:4',
+             [ :group,
+               [ :body,
+                 RIMS::Protocol.body(symbol:       'BODY',
+                                     section:      '',
+                                     section_list: [])
+               ]
+             ]
+           ],
+           [ 'A654',                   'FETCH',                             '2:4',
+             '('.intern,
+             [ :body,                  RIMS::Protocol.body(symbol:  'BODY', section: '') ],
+             ')'.intern
+           ]
+         ],
+         'append_command' => [
+           [ 'A003',                   'APPEND',                            'saved-messages', "foo\nbody[]\nbar\n" ],
+           [ 'A003',                   'APPEND',                            'saved-messages', "foo\nbody[]\nbar\n" ]
+         ])
+    def test_parse(data)
+      expected_atom_list, input_atom_list = data
+      assert_equal(expected_atom_list, RIMS::Protocol::RequestReader.parse(input_atom_list))
+    end
 
-      cmd_cont_req = @output.string.each_line
-      assert_match(/^\+ /, cmd_cont_req.next)
-      assert_raise(StopIteration) { cmd_cont_req.next }
+    data('unclosed_square_bracket' => [ '*', 'OK',   '['.intern, 'UNSEEN', '12' ],
+         'unclosed_parenthesis'    => [ '*', 'LIST', '('.intern, '\Noselect' ])
+    def test_parse_not_found_a_terminator_error(data)
+      input_atom_list = data
+      error = assert_raise(RIMS::SyntaxError) { RIMS::Protocol::RequestReader.parse(input_atom_list) }
+      assert_match(/not found a terminator/, error.message)
     end
   end
 end