Skip to content

Instantly share code, notes, and snippets.

View DominicFinn's full-sized avatar

Dominic Finn DominicFinn

View GitHub Profile
@DominicFinn
DominicFinn / Service.cs
Created October 6, 2014 11:07
Create Sql Query NHibernate
public class Service
{
public IEnumerable<Report> Report(DateTime start, DateTime end)
{
var results = unitOfWork.Session.CreateSQLQuery(@"
select r.id, r.number
from Report r
where r.Date between =:start and =:end
")
.SetParameter("start", start)
@DominicFinn
DominicFinn / something.cs
Created October 21, 2014 14:34
Dom and Ed messing about with some reflection and recursion
using System;
using System.Collections.Generic;
using System.Linq;
using System.Reflection;
using System.Text;
using System.Threading.Tasks;
namespace lol
{
class Program
@DominicFinn
DominicFinn / Program.fs
Last active August 29, 2015 14:17
F# Azure Queue Storage Example
open Microsoft.WindowsAzure.Storage
open System.Configuration
open Microsoft.WindowsAzure.Storage.Queue
open System
open Newtonsoft.Json
type Message = { Title:string; Details:string }
type LogMessage =
| Error of Message
@DominicFinn
DominicFinn / hackday_nhs.md
Last active August 29, 2015 14:17
Next NHS Hack day

#We’re really excited to be able to announce the tenth NHS Hack Day, which is happening in a little under two months' time at King’s College London.

-- King’s College London 16th-17th May 2015

What is an NHS Hack Day?

NHS Hack Days are weekend events that bring together “geeks who love the NHS” to have fun, build community, and work on digital projects that promote health.

NHS Hack Day began in 2012 when Carl (a doctor) complained to his friend Tom (a developer)

@DominicFinn
DominicFinn / ShortCircuitTests.vb
Created March 23, 2015 22:11
VB.NET ShortCircuit Example
Imports System.Text
Imports Microsoft.VisualStudio.TestTools.UnitTesting
Imports System.Runtime.CompilerServices
Module StringExtensions
<Extension()>
Public Function IsLongerThan10Characters(ByVal value As String) As Boolean
Return value IsNot Nothing AndAlso value.Length > 10
End Function
@DominicFinn
DominicFinn / AnonymousTypeTesting.vb
Created March 23, 2015 23:26
Testing the concept of anonymous types in Visual Basic .NET
Imports System.Text
Imports Microsoft.VisualStudio.TestTools.UnitTesting
Public Class Dog
Public Property Id As Integer
Public Property Name As String
Public Property Age As Integer
End Class
@DominicFinn
DominicFinn / GivenAValidXmlPerson.vb
Created March 24, 2015 10:53
XML Literal being used for a unit test
Imports System.Text
Imports Microsoft.VisualStudio.TestTools.UnitTesting
<TestClass()>
Public Class GivenAValidXmlPerson
Private _person As XDocument
Dim _id As Integer
Dim _firstName As String
Dim _lastName As String
@DominicFinn
DominicFinn / GenericExample.vb
Created March 25, 2015 16:38
Generic example in VB.NET showing how one database can handle multiple types.
Public MustInherit Class ReadModel
Public Property Id As Guid
End Class
Public Class Appointment
Inherits ReadModel
Public Property StartTime As DateTime
Public Property EndTime As DateTime
End Class
@DominicFinn
DominicFinn / GivenAPersonIsCreated.cs
Created March 27, 2015 10:56
Example of our Acceptance Specification Test
public class GivenAPersonIsCreated : AcceptanceSpecification {
protected override void Given() {
}
protected override void When() {
}
[Then]
public void TheUserShouldBeSaved() {
@DominicFinn
DominicFinn / SanityHunter.fsx
Last active August 29, 2015 14:18
Gets all your databases that don't have a number on the end such as 1 or 1.0 and versions them up for you ;-)
open System.Data
open System.Data.SqlClient
let query sql f =
seq {
use cn = new SqlConnection("")
let da = new SqlDataAdapter(new SqlCommand(sql, cn))
let ds = new DataSet()
cn.Open()
let i = da.Fill(ds)