Interview Coding Challenge Submission - Joseph M. Fallecker

.gitignore

@@ -0,0 +1,12 @@
+# Ignore Visual Studio files
+.vs/
+
+# Ignore bin and obj folders of projects
+RestaurantReviews/obj/*
+RestaurantReviews/bin/*
+RestaurantReviews/.vs/*
+RestaurantReviews.DomainModel/obj/*
+RestaurantReviews.DomainModel/bin/*
+RestaurantReviews.DomainModel/.vs/*
+RestaurantReviews.SQLServer/obj/*
+RestaurantReviews.SQLServer/bin/*

Database Scripts/001_CreateDatabase.sql

@@ -0,0 +1,28 @@
+CREATE DATABASE [RestaurantReviews];
+GO
+USE RestaurantReviews;
+GO
+
+CREATE TABLE [dbo].[Restaurant]
+(
+	[Id] UNIQUEIDENTIFIER NOT NULL PRIMARY KEY,
+	[Name] NVARCHAR(100) NOT NULL,
+	[City] NVARCHAR(100) NOT NULL	
+)
+CREATE TABLE [dbo].[User]
+(
+	[Id] UNIQUEIDENTIFIER NOT NULL PRIMARY KEY,
+	[FirstName] NVARCHAR(20),
+	[LastName] NVARCHAR(20)
+)
+CREATE TABLE [dbo].[Review]
+(
+	[Id] UNIQUEIDENTIFIER NOT NULL PRIMARY KEY,
+	[UserId] UNIQUEIDENTIFIER NOT NULL,
+	[RestaurantId] UNIQUEIDENTIFIER NOT NULL,
+	[Rating] INT NOT NULL,
+	[ReviewText] NVARCHAR(500),
+	[IsDeleted] BIT,
+	CONSTRAINT FK_Review_User FOREIGN KEY (UserId) REFERENCES [dbo].[User],
+	CONSTRAINT FK_Review_Restaurant FOREIGN KEY (RestaurantId) REFERENCES [dbo].[Restaurant]
+)

Database Scripts/002_CreateProcedure_InsertRestaurant.sql

@@ -0,0 +1,23 @@
+USE [RestaurantReviews]
+GO
+
+SET ANSI_NULLS ON
+GO
+
+SET QUOTED_IDENTIFIER ON
+GO
+
+CREATE PROCEDURE [dbo].[InsertRestaurant]
+	@id UNIQUEIDENTIFIER,
+	@name NVARCHAR(100),
+	@city NVARCHAR(100)
+AS
+	IF NOT EXISTS (SELECT 1
+				   FROM [dbo].[Restaurant]
+				   WHERE Name = @name AND City = @city)
+
+	INSERT INTO Restaurant (Id, Name, City)
+	VALUES (@id, @name, @city)		
+
+RETURN 0
+GO

Database Scripts/003_CreateProcedure_SelectRestaurantsByCity.sql

@@ -0,0 +1,25 @@
+USE [RestaurantReviews]
+GO
+
+SET ANSI_NULLS ON
+GO
+
+SET QUOTED_IDENTIFIER ON
+GO
+
+CREATE PROCEDURE [dbo].[SelectRestaurantsByCity]
+	@city NVARCHAR(100)
+AS
+BEGIN
+	-- SET NOCOUNT ON added to prevent extra result sets from
+	-- interfering with SELECT statements.
+	SET NOCOUNT ON;
+
+    -- Insert statements for procedure here
+	SELECT [Id], [Name]
+	FROM Restaurant
+	WHERE City = @city
+END
+GO
+
+

Database Scripts/004_CreateProcedure_SelectRestaurant.sql

@@ -0,0 +1,23 @@
+USE [RestaurantReviews]
+GO
+
+SET ANSI_NULLS ON
+GO
+
+SET QUOTED_IDENTIFIER ON
+GO
+
+CREATE PROCEDURE [dbo].[SelectRestaurant]
+	@id UNIQUEIDENTIFIER
+AS
+BEGIN
+	-- SET NOCOUNT ON added to prevent extra result sets from
+	-- interfering with SELECT statements.
+	SET NOCOUNT ON;
+
+    -- Insert statements for procedure here
+	SELECT [Name], [City]
+	FROM Restaurant
+	WHERE Id = @id
+END
+GO

Database Scripts/005_CreateProcedure_SelectUser.sql

@@ -0,0 +1,23 @@
+USE [RestaurantReviews]
+GO
+
+SET ANSI_NULLS ON
+GO
+
+SET QUOTED_IDENTIFIER ON
+GO
+
+CREATE PROCEDURE [dbo].[SelectUser]
+	@id UNIQUEIDENTIFIER
+AS
+BEGIN
+	-- SET NOCOUNT ON added to prevent extra result sets from
+	-- interfering with SELECT statements.
+	SET NOCOUNT ON;
+
+    -- Insert statements for procedure here
+	SELECT [FirstName], [LastName]
+	FROM [dbo].[User]
+	WHERE Id = @id
+END
+GO

Database Scripts/006_CreateProcedure_InsertReview.sql

@@ -0,0 +1,22 @@
+USE [RestaurantReviews]
+GO
+
+SET ANSI_NULLS ON
+GO
+
+SET QUOTED_IDENTIFIER ON
+GO
+
+CREATE PROCEDURE [dbo].[InsertReview]
+	@id UNIQUEIDENTIFIER,
+	@userId UNIQUEIDENTIFIER,
+	@restaurantId UNIQUEIDENTIFIER,
+	@rating INT,
+	@reviewText NVARCHAR(500)
+AS
+	INSERT INTO Review (Id, UserId, RestaurantId, Rating, ReviewText, IsDeleted)
+	VALUES (@id, @userId, @restaurantId, @rating, @reviewText, 0)	
+RETURN 0
+GO
+
+

Database Scripts/007_CreateProcedure_SelectReviewByUser.sql

@@ -0,0 +1,27 @@
+USE [RestaurantReviews]
+GO
+
+SET ANSI_NULLS ON
+GO
+
+SET QUOTED_IDENTIFIER ON
+GO
+
+
+
+CREATE PROCEDURE [dbo].[SelectReviewsByUser]
+	@id UNIQUEIDENTIFIER
+AS
+BEGIN
+	-- SET NOCOUNT ON added to prevent extra result sets from
+	-- interfering with SELECT statements.
+	SET NOCOUNT ON;
+
+    -- Insert statements for procedure here
+	SELECT review.[Id], review.[RestaurantId], [Rating], [ReviewText]
+	FROM [dbo].[Review] review
+	WHERE UserId = @id AND IsDeleted = 0
+END
+GO
+
+

Database Scripts/008_CreateProcedure_DeleteReview.sql

@@ -0,0 +1,21 @@
+USE [RestaurantReviews]
+GO
+
+SET ANSI_NULLS ON
+GO
+
+SET QUOTED_IDENTIFIER ON
+GO
+
+
+CREATE PROCEDURE [dbo].[DeleteReview]
+	@id UNIQUEIDENTIFIER
+AS
+BEGIN
+	UPDATE Review
+	SET IsDeleted = 1
+	WHERE Id = @id
+END
+GO
+
+

Database Scripts/009_CreateProcedure_InsertUser.sql

@@ -0,0 +1,24 @@
+USE [RestaurantReviews]
+GO
+
+SET ANSI_NULLS ON
+GO
+
+SET QUOTED_IDENTIFIER ON
+GO
+
+CREATE PROCEDURE [dbo].[InsertUser]
+	@id UNIQUEIDENTIFIER,
+	@firstName NVARCHAR(20),
+	@lastName NVARCHAR(20)
+AS
+BEGIN
+	-- SET NOCOUNT ON added to prevent extra result sets from
+	-- interfering with SELECT statements.
+	SET NOCOUNT ON;
+
+    -- Insert statements for procedure here
+	INSERT INTO [dbo].[User] (Id, FirstName, LastName)
+	VALUES (@id, @firstName, @lastName)
+END
+GO

RestaurantReviews.DomainModel/Library.fs

@@ -0,0 +1,85 @@
+namespace RestaurantReviews.DomainModel
+
+open System
+
+type NonEmptyString = private NonEmptyString of string
+module NonEmptyString =
+    let create str = 
+        if String.IsNullOrWhiteSpace(str) then
+            "The given string must not be empty or whitespace" |> Error
+        else
+            NonEmptyString str |> Ok
+
+    let unwrap (NonEmptyString str) = str
+
+
+type Id = private Id of Guid
+module Id = 
+    let create id = 
+        if id = Guid.Empty then
+            "Id may not be an empty Guid." |> Error
+        else
+            Id id |> Ok
+
+    let unwrap (Id id) = id
+
+
+type Rating = private Rating of int
+module Rating = 
+    let lower = 0
+    let upper = 5
+
+    let create rating = 
+        if rating < lower || rating > upper then
+            String.Format("Rating must be between {0} and {1}", lower, upper) |> Error
+        else
+            Rating rating |> Ok
+
+    let unwrap (Rating rating) = rating
+
+
+type User = {
+    Id: Id
+    FirstName: NonEmptyString // require first name?
+    LastName: string
+}
+module User =
+    let unwrap user = {|
+        Id = Id.unwrap user.Id
+        FirstName = NonEmptyString.unwrap user.FirstName
+        LastName = user.LastName
+    |}
+
+
+type Restaurant = {
+    Id: Id
+    Name: NonEmptyString
+    City: NonEmptyString
+}
+module Restaurant =
+    let unwrap restaurant = {| 
+        Id = Id.unwrap restaurant.Id
+        Name = NonEmptyString.unwrap restaurant.Name 
+        City = NonEmptyString.unwrap restaurant.City 
+    |}
+
+    let unwrapMany restaurants = Seq.map unwrap restaurants
+
+
+type Review = {
+    Id: Id
+    User: Id
+    Restaurant: Id
+    Rating: Rating
+    ReviewText: string
+}
+module Review = 
+    let unwrap review = {|
+        Id = Id.unwrap review.Id
+        User = Id.unwrap review.User
+        Restaurant = Id.unwrap review.Restaurant
+        Rating = Rating.unwrap review.Rating
+        ReviewText = review.ReviewText
+    |}
+
+    let unwrapMany reviews = Seq.map unwrap reviews

RestaurantReviews.DomainModel/RestaurantReviews.DomainModel.fsproj

@@ -0,0 +1,11 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <TargetFramework>netstandard2.0</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="Library.fs" />
+  </ItemGroup>
+
+</Project>