Skip to content

Instantly share code, notes, and snippets.

-define(GET(Field),
{Field, list_to_binary(wf:q(Field))}).
-define(GET_JSON(JSON_TERM),
fun(Field) when is_atom(Field) ->
FieldB = erlang:atom_to_binary(Field,utf8),
Val = proplists:get_value(FieldB, JSON_TERM),
{Field, Val}
end).
budgets = new Backbone.Budget.Collection(window.budget)
list =
width : 320
view : "datatable"
id : "budget_list"
backbone_collection : budgets
select : true
scroll : false
columns :[
@zkessin
zkessin / index.html
Created February 5, 2015 05:09
canvas test target
<!doctype html>
<html lang="en">
<head>
<meta charset="utf-8">
<title>Canvas test page</title>
</head>
<body>
pick(L) ->
finch:pick_one(L).
basic_random_test() ->
List = lists:seq(1,100),
Vals = [{pick(List),pick(List)}||_ <- lists:seq(1,30)],
?assertNot(chi2:chi80(Vals)),
true.
This file has been truncated, but you can view the full file.
%-*-Erlang-*-
-module(words).
-export([list/0]).
list() ->
[<<"A acid">>,<<"abacus major">>,<<"abacus pythagoricus">>,<<"A battery">>,
<<"abbey counter">>,<<"abbey laird">>,<<"abbey lands">>,<<"abbey lubber">>,
<<"abbot cloth">>,<<"Abbott papyrus">>,<<"abb wool">>,<<"A-b-c book">>,
<<"A-b-c method">>,<<"abdomino-uterotomy">>,<<"Abdul-baha">>,<<"a-be">>,
<<"aberrant duct">>,<<"aberration constant">>,<<"abiding place">>,
@zkessin
zkessin / square.erl
Created August 24, 2012 20:45
square.erl
-module(square).
-export([square/1]).
square(X) ->
X * X.
@zkessin
zkessin / square_test.erl
Created August 24, 2012 20:45
square_test.erl
-module(square_test).
-include_lib("eunit/include/eunit.hrl").
square_0_test() ->
?assertEqual(0, square:square(0)).
square_1_test() ->
?assertEqual(1, square:square(1)).
square_2_test() ->
@zkessin
zkessin / tests.erl
Created August 24, 2012 20:45
Eunit Basic Test
-module(tests).
-export([run/0]).
run() ->
io:format("Running Tests"),
eunit:test("ebin/"),
init:stop().
@zkessin
zkessin / Makefile.txt
Created August 24, 2012 20:48
Erlang Makefile
test: all
erl -run tests run
@zkessin
zkessin / fixtures.erl
Created August 24, 2012 20:43
test with fixtures
do_something_with_fixtures_test_() ->
{
setup,
fun setup/0,
fun cleanup/1,
?_test(
begin
?assertEqual(1, 2)
end)}.