| module Amazon | |
| module Authentication | |
| SIGNATURE_VERSION = "2" | |
| @@digest = OpenSSL::Digest::Digest.new("sha256") | |
| def sign(auth_string) | |
| Base64.encode64(OpenSSL::HMAC.digest(digester, aws_secret_access_key, auth_string)).strip | |
| end | |
| def digester |
| # git will show dirty branches | |
| GIT_PS1_SHOWDIRTYSTATE=true | |
| # Directory shortening for prompt | |
| # Edit this based on the directory structures you like to use | |
| function shorten_dir() { | |
| d=$(pwd) | |
| d=${d/\/Users\/sim\/dev\/spx/SPX} | |
| d=${d/\/Users\/sim\/dev\/rails_projects/RP} | |
| d=${d/\/Users\/sim\/dev\/proj/PROJ} |
| require "spx_utils/resque" | |
| describe SpxUtils::Resque do | |
| describe ".job_handler" do | |
| subject do | |
| SpxUtils::Resque.job_handler(:my_queue) do |x, y| | |
| x + y | |
| end | |
| end |
| # Returns the stack of RScript files | |
| rscript.stack <- function() { | |
| Filter(Negate(is.null), lapply(sys.frames(), function(x) x$ofile)) | |
| } | |
| # Returns the current RScript file path | |
| rscript.current <- function() { | |
| stack <- rscript.stack() | |
| as.character(stack[length(stack)]) |
This gist demonstrates a strange behavior in the proto package for R when functions are dynamically invoked via do.call. When do.call is invoked inside a proto object, variables that belong to a function's closure are not visible, even though a naive navigation of the environment chain shows these variables to be present. This problem does not occur when do.call is used outside of proto.
The problem is isolated to a testthat test in test-cmd.r.
| add = function(., name, p) { | |
| data <- list(name=name, type=p$..Name, data=as.list(p)) | |
| .$collection()$insert(data) | |
| }, | |
| get = function(., name) { | |
| doc <- .$collection()$query_one(name=name) | |
| if (!is.null(doc)) { | |
| factory <- base:::get(doc$type, pos=1) | |
| do.call(factory$new, doc$data) |
| # Find expression that created a variable | |
| find_expr <- testthat:::find_expr | |
| includes <- function(x, included) { | |
| if (length(included) > 0) { | |
| if (is.list(included)) { | |
| for (name in names(included)) { | |
| if (!all(x[[name]] == included[[name]])) { | |
| return(FALSE) |
| =begin | |
| Allows for a data structure to be safely evolved hierarchically during testing | |
| Example: | |
| context "with one try" do | |
| with_data tries: 1 | |
| describe "with suppressed exceptions" do | |
| with_data raise_on_fail: false | |
| specify { retry_raise_hell(1, my_data).should be_nil } |
| -- #t behaves strangely with hashtables & nil values | |
| function table_length(t) | |
| local count = 0 | |
| for _ in pairs(t) do count = count + 1 end | |
| return count | |
| end | |
| function Test(test, expectation) | |
| return { | |
| test = test, |
| <!-- Leaderboard slot on Yahoo!'s health network --> | |
| <div id="yahoohealth-n-leaderboard-ad" style="border:0;margin-top:0;"> | |
| <div style="margin-bottom:9px;text-align:center"> | |
| <!-- Ad unit delivery script if scripting is available --> | |
| <script language="JavaScript" type="text/javascript" src="http://us.adserver.yahoo.com/a?f=96843138&p=health&l=N&c=r&rs=cnp:healthline&at=hlids%3Dx%26hlk1%3D8234384%26hlk2%3D8317112%26hlkwa%3D2790905%20refurl%3D%22%22"> | |
| </script> | |
| <center> | |
| <!-- Yahoo 1x1 tracking pixel delivery script --> | |
| <script language="JavaScript" type="text/javascript" src="http://us.adserver.yahoo.com/a?f=96843138&p=health&l=FSRVY&c=sr"> | |
| </script> |