Rename function

imperialhopfield · Jul 11, 2013 · 0ee07f9 · 0ee07f9
1 parent 90aae52
commit 0ee07f9
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/Hopfield/TestUtil.hs b/src/Hopfield/TestUtil.hs
@@ -198,8 +198,8 @@ boltzmannBuildGen m1 m2 max_hidden = do
   return $ (pats, i)
 
 
-build_BM_Check :: ([Pattern], Int) -> Gen Bool
-build_BM_Check (pats, nr_h) = do
+buildBoltzmannCheck :: ([Pattern], Int) -> Gen Bool
+buildBoltzmannCheck (pats, nr_h) = do
   i <- arbitrary
   let bd = evalRand (buildBoltzmannData' pats nr_h) (mkStdGen i)
   return $ patternsB bd == pats && nr_hiddenB bd == nr_h

diff --git a/test/TestBoltzmann.hs b/test/TestBoltzmann.hs
@@ -20,7 +20,7 @@ testBoltzmannMachine = do
    let boltzmannAndPatGen' = boltzmannAndPatGen maxPatListSize maxPatSize maxNrHidden
 
    it "tests that the patterns and nr of hidden neurons stored in the Boltzmann data structure are the same as the ones which were given as input" $
-     forAll boltzmannBuildGen' build_BM_Check
+     forAll boltzmannBuildGen' buildBoltzmannCheck
 
    it "tests that the activation function application always gives us a probability" $
      forAll boltzmannAndPatGen' $ probabilityCheck