Tehnix

With TDD (test driven development) having so much traction in our day and age, I thought it would be highly relevant to explore the concept of unit testing and such.

The idea behind test driven development, is that you first write your tests for your code, and then you write the code. This way, you can constantly watch if the code passes the tests, meaning the implementation is complete. This also forces you to think about your code before you write it, often helping you in visualizing what needs to be done and how.

A little note though, I have limited experience writing actual tests, but do know a bit about the idea/concept behind TDD.

Python gives us the lovely unittest module, which makes unit testing easy. This is, in reality, all you need to get started, but we're gonna get nose, which extends unittest to make testing easier (as is said on their site).

You can install nose via easy_install: easy_install nose

Tehnix

import sys
import json
import urllib2
import BaseHTTPServer
import SimpleHTTPServer
import subprocess
import threading

#import irc_bot

Tehnix

"""
The game is called Mystery Mansion.
Simply put, the user has to go through door after door to gain access to the treasure.
Behind every door lurks an evil creature looking for its breakfast, lunch or dinner.
So, all the best.

"""
import random
import datetime

Tehnix

from sys import argv
from urllib2 import urlopen
from os.path import exists


URL = "http://numbersapi.com/random"
SCRIPT, TO_FILE = argv


print "Top 5 Facts of The World"

Tehnix

#!/bin/bash -ex
cd /home/tehnix/slight/repos/Tehnix/HsCMS
.cabal/bin/cabal-dev clean
.cabal/bin/cabal-dev configure
.cabal/bin/cabal-dev install
.cabal/bin/cabal-dev build
strip dist/build/HsCMS/HsCMS
rm -rf static/tmp/

tar czfv HsCMS.keter dist/build/HsCMS/HsCMS config static

Tehnix

-- Snippet from Foundation.hs
instance YesodAuth App where
    type AuthId App = UserId

    -- Where to send a user after successful login
    loginDest _ = AdminR
    -- Where to send a user after logout
    logoutDest _ = BlogR

    getAuthId creds = runDB $ do

Tehnix

tehnix:~/ $ cabal install helm                                                           [23:59:27]
Resolving dependencies...
[1 of 2] Compiling SetupWrapper     ( /var/folders/7h/vt765h7106723x7p30_jv0680000gn/T/cairo-0.12.5.0-757/cairo-0.12.5.0/SetupWrapper.hs, /var/folders/7h/vt765h7106723x7p30_jv0680000gn/T/cairo-0.12.5.0-757/cairo-0.12.5.0/dist/setup/SetupWrapper.o )
[2 of 2] Compiling Main             ( /var/folders/7h/vt765h7106723x7p30_jv0680000gn/T/cairo-0.12.5.0-757/cairo-0.12.5.0/Setup.hs, /var/folders/7h/vt765h7106723x7p30_jv0680000gn/T/cairo-0.12.5.0-757/cairo-0.12.5.0/dist/setup/Main.o )
Linking /var/folders/7h/vt765h7106723x7p30_jv0680000gn/T/cairo-0.12.5.0-757/cairo-0.12.5.0/dist/setup/setup ...
[1 of 2] Compiling Gtk2HsSetup      ( Gtk2HsSetup.hs, dist/setup-wrapper/Gtk2HsSetup.o )
[2 of 2] Compiling Main             ( SetupMain.hs, dist/setup-wrapper/Main.o )
Linking dist/setup-wrapper/setup ...
Configuring cairo-0.12.5.0...
Building cairo-0.12.5.0...

Tehnix

-- Hamlet file
$with Entity _ user <- runDB $ selectFirst [UserId ==. userId] [] >>= return.fromJust
    #{userIdent user}
    
    
-- Error (it is referring to the `.` in `return.fromJust`)
        <div #content-preview-container>
    <div .clear>
" (line 32, column 105):
unexpected '.'

Tehnix

import qualified Network.HTTP.Conduit as HTTP
import qualified Data.ByteString as BS
import qualified Data.ByteString.Lazy as BL
import qualified Network.HTTP.Types.Header as HT
import Data.ByteString.Internal (unpackBytes)
import qualified Data.ByteString.Char8 as C
import GHC.Word (Word8)


testingGist = False

Tehnix

defaultLayout widget = do
    master <- getYesod
    mmsg <- getMessage

    pc <- widgetToPageContent $ do
        $(combineStylesheets 'StaticR
            [ css_normalize_css
            , css_bootstrap_css
            , css_fonts_css
            ])