From 77515b928542adc12a1b6fb8cced85f3f3ea2cd0 Mon Sep 17 00:00:00 2001
From: Laurent <lg390@cam.ac.uk>
Date: Tue, 16 Feb 2016 09:42:46 +0000
Subject: [PATCH] Added unit test for previous bug fix

---
 NEWS                           |  1 +
 tests/testthat/test_Spectrum.R | 12 ++++++++++++
 2 files changed, 13 insertions(+)

diff --git a/NEWS b/NEWS
index 130544071..34e85dc65 100644
--- a/NEWS
+++ b/NEWS
@@ -1,6 +1,7 @@
 CHANGES IN VERSION 1.19.13
 --------------------------
  o Fixed bug in bin_Spectrum, reported by Weibo Xie <2016-02-16 Tue>
+ o Added unit test for bug above <2016-02-16 Tue>
  
 CHANGES IN VERSION 1.19.12
 --------------------------
diff --git a/tests/testthat/test_Spectrum.R b/tests/testthat/test_Spectrum.R
index 27f5050b6..8e87f5889 100644
--- a/tests/testthat/test_Spectrum.R
+++ b/tests/testthat/test_Spectrum.R
@@ -148,6 +148,18 @@ test_that("bin_Spectrum", {
 })
 
 
+test_that("bin_Spectrum - bug fix #ecaaa324505b17ee8c4855806f7e37f14f1b27b8", {
+    s <- new("Spectrum2", mz=c(1:7, 55, 78, 100), intensity=1:10)
+    s2 <- bin(s)
+    expect_equal(mz(s2), c(seq(1.5, 100, 1), 100))
+    ires <- rep(0, peaksCount(s2))
+    ires[peaksCount(s2)] <- intensity(s)[peaksCount(s)]
+    ires[1:7] <- 1:7
+    ires[55] <- 8
+    ires[78] <- 9
+    expect_equal(intensity(s2), ires)
+})
+
 test_that("removePeaks profile vs centroided", {
      int <- c(2,0,0,0,1,5,1,0,0,1,3,1,0,0,1,4,2,1)
      sp1 <- new("Spectrum2",