tests: port some bad config tests to Perl 5
[unicorn.git] / t / client_body_buffer_size.ru
blob44161a519e01608c9c94e1961af489fccf79eb8e
1 #\ -E none
2 app = lambda do |env|
3   input = env['rack.input']
4   case env["PATH_INFO"]
5   when "/tmp_class"
6     body = input.instance_variable_get(:@tmp).class.name
7   when "/input_class"
8     body = input.class.name
9   else
10     return [ 500, {}, [] ]
11   end
12   [ 200, {}, [ body ] ]
13 end
14 run app