svn commit: r666484 - /incubator/thrift/trunk/test/erl/src/test_server.erl

[dr...@apache.org]

Author: dreiss
Date: Tue Jun 10 18:16:09 2008
New Revision: 666484

URL: http://svn.apache.org/viewvc?rev=666484&view=rev
Log:
[erl] fix test_server to expect binary type for strings rather than lists

Modified:
    incubator/thrift/trunk/test/erl/src/test_server.erl

Modified: incubator/thrift/trunk/test/erl/src/test_server.erl
URL: http://svn.apache.org/viewvc/incubator/thrift/trunk/test/erl/src/test_server.erl?rev=666484&r1=666483&r2=666484&view=diff
==============================================================================
--- incubator/thrift/trunk/test/erl/src/test_server.erl (original)
+++ incubator/thrift/trunk/test/erl/src/test_server.erl Tue Jun 10 18:16:09 2008
@@ -12,7 +12,7 @@
     io:format("testVoid~n"),
     ok;
 
-handle_function(testString, {S}) when is_list(S) ->
+handle_function(testString, {S}) when is_binary(S) ->
     io:format("testString: ~p~n", [S]),
     {reply, S};
 
@@ -37,7 +37,7 @@
                                  byte_thing = Byte,
                                  i32_thing = I32,
                                  i64_thing = I64}})
-when is_list(String),
+when is_binary(String),
      is_integer(Byte),
      is_integer(I32),
      is_integer(I64) ->
@@ -126,7 +126,7 @@
                     i32_thing = Arg1,
                     i64_thing = Arg2}};
 
-handle_function(testException, {String}) when is_list(String) ->
+handle_function(testException, {String}) when is_binary(String) ->
     io:format("testException(~p)~n", [String]),
     case String of
         "Xception" ->