#!/usr/bin/newlisp
;
; driver_oauth.lsp
; ----------------
; author: barce@codebelay.com
; date:   16 April 2008
;


(load "OAuth.lsp")

; test for OAuthConsumer
(println "----[ testing OAuthConsumer ]----")
(new OAuthConsumer 'oconsumer)
(set 'oconsumer:key "mykey")
(set 'oconsumer:secret "mysecret")
(set 'oconsumer:callback_url "mycallback_url")

; test for OAuthToken
(println "----[ testing OAuthToken ]----")
(new OAuthToken 'my-oauth)
(set 'my-oauth:key "mykey")
(set 'my-oauth:secret "mysecret")
(println my-oauth:secret)
(println (my-oauth:to_string)) 


(println)
(println "----[ testing OAuthSignatureMethod_HMAC_SHA1 ]----")
(new OAuthSignatureMethod_HMAC_SHA1 'myhmac)
(println (myhmac:get_name))

(println)
(println "----[ testing OAuthSignatureMethod_PLAINTEXT ]----")
(new OAuthSignatureMethod_PLAINTEXT 'mytext)
(println (mytext:get_name))

(println)
(println "----[ testing OAuthRequest ]----")
(new OAuthRequest 'myreq)

(set 'foo '(2 4 8 3.14159))
(myreq "bye" "yahoo" foo)
(println "http-method " (myreq:get-http-method))
(println "version " myreq:version)
(println "parameters: " myreq:parameters)

(println "")
(println "try without params")
(new OAuthRequest 'myreq_noparams)
(myreq_noparams "POST" "http://barce.vox.com/" nil)
(println "http-method " (myreq_noparams:get-http-method))
(println "http-url " (myreq_noparams:get-http-url))
(println "version " myreq_noparams:version)
(println "parameters: " myreq_noparams:parameters)


(println)
(println "----[ testing OAuthException ]----")
(new OAuthException 'ox)
(set 'ox:RunTimeError 5)
(ox:oauth_error)
(exit)