neale
/
irc-bot
mirror of https://github.com/nealey/irc-bot
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fixed easy input parsing bug

This commit is contained in:
Neale Pickett 2008-03-02 21:34:27 -07:00
parent b55baf1e92
commit ba2f2ef892
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
client.ml
View File

@ -97,7 +97,8 @@ let handle_input cli =
| [] ->
()
| [leftover] ->
String.blit leftover 0 cli.ibuf 0 (String.length leftover)
cli.ibuf_len := (String.length leftover);
String.blit leftover 0 cli.ibuf 0 !(cli.ibuf_len)
| line :: tl ->
let parsed = Command.from_string line in
!(cli.handle_command) cli parsed;

4
tests.ml
View File

@ -27,9 +27,7 @@ let unit_tests =
(Command.from_string ":foo NICK name");
assert_equal
~printer:Command.as_string
(Command.create
(Some "foo.bar")
"PART" ["#foo"; "#bar"]
(Command.create (Some "foo.bar") "PART" ["#foo"; "#bar"]
(Some "ta ta"))
(Command.from_string ":foo.bar PART #foo #bar :ta ta");
)