Computer Science Experimentation

Friday, November 23, 2012

Using NoSQL/Redis in Windows with F#


Celso Axelrud 
11/23/2012 
 

(Also available as Skydrive MSWord at https://skydrive.live.com/#!/edit.aspx?cid=BDC87EF39B001785&resid=BDC87EF39B001785%211518&app=Word&nd=1)

 
This document reports results related to testing Redis in Windows with F#.  
 
Redis for Windows is available for download from Microsoft Open Technologies Inc. at  https://github.com/MSOpenTech.  
 
The Redis server was started using redis-server.exe at a command prompt window. 
 
The tests were performed using F# interactive inside Visual Studio Express 2012 for Web. 
 
The Redis .NET driver used was from ServiceStack (https://github.com/ServiceStack/ServiceStack.Redis ) and downloaded from https://github.com/ServiceStack/ServiceStack.Redis/downloads . 
 
The following script shows the tests:
 
// Redis - example from 
//C:\opentech\ServiceStack.Redis-master\ServiceStack.Redis-master\tests\ServiceStack.Redis.Tests\Examples\TodoApp.cs 
// System 
open System 
open System.Collections.Generic 
#r "C:\opentech\ServiceStack.Redis-v3.9.28\ServiceStack.Common.dll" 
#r "C:\opentech\ServiceStack.Redis-v3.9.28\ServiceStack.Interfaces.dll" 
#r "C:\opentech\ServiceStack.Redis-v3.9.28\ServiceStack.Text.dll" 
#r "C:\opentech\ServiceStack.Redis-v3.9.28\ServiceStack.Redis.dll" 
open ServiceStack.Common.Extensions 
open ServiceStack.Text 
open ServiceStack.Redis 
  
type Todo= {mutable Id:int64; mutable Content:string;mutable Order:int;mutable Done:bool} 
let redisClient = new RedisClient("localhost") //6379 
redisClient.FlushAll();; 
let redisTodos = redisClient.As<Todo>();; 
(*> val redisTodos : Generic.IRedisTypedClient<Todo> *) 
let todo= {Id=redisTodos.GetNextSequence();Content = "Learn Redis";Order = 1;Done=false};; 
(*> val todo : Todo = {Id = 1L; 
Content = "Learn Redis"; 
Order = 1; 
Done = false;} *) 
redisTodos.Store(todo);; 
let savedTodo = redisTodos.GetById(todo.Id);; 
(*> val savedTodo : Todo = {Id = 1L; 
Content = "Learn Redis"; 
Order = 1; 
Done = false;} *) 
let allTodos = redisTodos.GetAll();; 
assert(allTodos.Count=1);; 
[for i in allTodos -> i.Content];; 
(*> val it : string list = ["Learn Redis"] *) 
savedTodo.Done <- span="span">true;; 
redisTodos.Store(savedTodo);; 
let savedTodo2 = redisTodos.GetById(todo.Id);; 
(*> val savedTodo2 : Todo = {Id = 1L; 
Content = "Learn Redis"; 
Order = 1; 
Done = true;} *) 
redisTodos.DeleteById(savedTodo.Id);; 
let allTodos2 = redisTodos.GetAll() 
assert(allTodos2.Count=0) 
 
 
 

No comments:

Post a Comment