1 files changed, 24 insertions, 0 deletions
diff --git a/samples/10_advanced_debugging/03_unit_tests/http_tests.rb b/samples/10_advanced_debugging/03_unit_tests/http_tests.rb
new file mode 100644
index 0000000..1132f85
--- /dev/null
+++ b/samples/10_advanced_debugging/03_unit_tests/http_tests.rb
@@ -0,0 +1,24 @@
+def try_assert_or_schedule args, assert
+  if $result[:complete]
+    log_info "Request completed! Verifying."
+    if $result[:http_response_code] != 200
+      log_info "The request yielded a result of #{$result[:http_response_code]} instead of 200."
+      exit
+    end
+    log_info ":try_assert_or_schedule succeeded!"
+  else
+    args.gtk.schedule_callback Kernel.tick_count + 10 do
+      try_assert_or_schedule args, assert
+    end
+  end
+end
+
+def test_http args, assert
+  $result = $gtk.http_get 'http://dragonruby.org'
+  try_assert_or_schedule args, assert
+end
+
+puts "running tests"
+$gtk.reset 100
+$gtk.log_level = :off
+$gtk.tests.start