1
0
mirror of https://github.com/chylex/Brotli-Builder.git synced 2024-11-24 22:42:50 +01:00
Brotli-Builder/UnitTests/Collections/TestRingBuffer.fs

96 lines
2.8 KiB
Forth

namespace UnitTests.Collections.TestRingBuffer
open Xunit
open System
open BrotliLib.Collections
module InitializationAndAccess =
[<Fact>]
let ``constructing with one value initializes the buffer correctly`` () =
let buffer = RingBuffer.From(10)
Assert.Equal(1, buffer.Length)
Assert.Equal(10, buffer.Front)
Assert.Equal(10, buffer.Back)
Assert.Equal(10, buffer.[0])
Assert.Equal(10, buffer.[1])
Assert.Equal(10, buffer.[2])
[<Fact>]
let ``constructing with two values initializes the buffer correctly`` () =
let buffer = RingBuffer.From(10, 20)
Assert.Equal(2, buffer.Length)
Assert.Equal(20, buffer.Front)
Assert.Equal(10, buffer.Back)
Assert.Equal(10, buffer.[0])
Assert.Equal(20, buffer.[1])
Assert.Equal(10, buffer.[2])
[<Fact>]
let ``constructing with three values initializes the buffer correctly`` () =
let buffer = RingBuffer.From(10, 20, 30)
Assert.Equal(3, buffer.Length)
Assert.Equal(30, buffer.Front)
Assert.Equal(10, buffer.Back)
Assert.Equal(10, buffer.[0])
Assert.Equal(20, buffer.[1])
Assert.Equal(30, buffer.[2])
[<Fact>]
let ``constructing with no parameters throws exception`` () =
Assert.Throws<ArgumentException>(fun () -> RingBuffer.From() |> ignore)
[<Fact>]
let ``accessing a negative index throws exception`` () =
let buffer = RingBuffer.From(10, 20, 30)
Assert.Throws<IndexOutOfRangeException>(fun () -> buffer.[-1] |> ignore)
module Mutability =
[<Fact>]
let ``pushing to a buffer of size 1 replaces the stored value`` () =
let buffer = RingBuffer.From(10)
buffer.Push(90)
Assert.Equal(90, buffer.Front)
[<Fact>]
let ``pushing to a buffer of size 2 inserts the value and shifts the rest`` () =
let buffer = RingBuffer.From(10, 20)
buffer.Push(90)
Assert.Equal(90, buffer.Front)
Assert.Equal(20, buffer.Back)
buffer.Push(80)
Assert.Equal(80, buffer.Front)
Assert.Equal(90, buffer.Back)
[<Fact>]
let ``pushing to a buffer of size 3 inserts the value and shifts the rest`` () =
let buffer = RingBuffer.From(10, 20, 30)
buffer.Push(90)
Assert.Equal(90, buffer.Front)
Assert.Equal(30, buffer.[1])
Assert.Equal(20, buffer.Back)
buffer.Push(80)
Assert.Equal(80, buffer.Front)
Assert.Equal(90, buffer.[1])
Assert.Equal(30, buffer.Back)
[<Fact>]
let ``accessing a negative index after pushing throws exception`` () =
let buffer = RingBuffer.From(10, 20, 30)
buffer.Push(90)
buffer.Push(80)
Assert.Throws<IndexOutOfRangeException>(fun () -> buffer.[-1] |> ignore)