@@ -12,7 +12,7 @@ run.tests = function ()

   test.allMatricesAreNormalized ()

   test.providerNames ()

   test.geneSymbols ()

-  #test.geneIdsAndTypes ()

+  test.geneIdsAndTypes ()

   test.proteinIds ()

   test.sequenceCount ()

   test.longNames ()

@@ -156,10 +156,10 @@ test.geneIdsAndTypes = function ()

   geneIdTypes = tbl$geneIdType

   typeCounts = as.list (table (geneIdTypes))

-  checkTrue(typeCounts$ENTREZ == 2347)

-  checkTrue(typeCounts$FLYBASE >= 47)

-  checkTrue(typeCounts$SGD >= 629)

-  checkEquals(nrow(subset(tbl, is.na(geneIdType))), 2055)

+  checkTrue(typeCounts$ENTREZ > 2300)

+  checkTrue(typeCounts$FLYBASE >= 45)

+  checkTrue(typeCounts$SGD >= 600)

+  checkTrue(nrow(subset(tbl, is.na(geneIdType))) > 2000)

   empty.count = length (which (geneIds == ''))

   checkEquals (empty.count, 0)